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Das Pascal- + BASIC- 
System 


Einsatzmöglichkeiten 

Bisher waren Pascal und BASIC nicht miteinander kompatibel. Doch über 
die in diesem Artikel beschriebenen Routinen kann Pascal mit dem im ROM 
festgelegten BASIC Ihres APPLE-Computers operieren und interagieren. 
Hier eine Liste der Möglichkeiten, die Ihnen das Pascal + BASIC-System 
bietet: 


Ausführen von Pascal-, BASIC- oder DOS-Operationen, ohne neu boo- 
ten zu müssen. 


Speichern von BASIC-Programmen auf Pascal-Disketten. 
Ausführen von BASIC-Programmen unter dem Pascal-Betriebssystem. 


Aufruf von BASIC-Programmen unter Kontrolle von Pascal- 
Programmen. 


Speichern von mit BASIC entwickelten Assemblerprogrammen auf 
Pascal-Disketten. 


Aufruf von BASIC- und Monitor-ROM-Routinen unter Pascal. 
Benutzung des BASIC-Monitors unter Pascal. 

Verwendung des UCSD-Assemblers zur Erzeugung von Maschinencode, 
der auf DOS 3.3-Disketten gespeichert und vom BASIC benutzt werden 


kann. 


Einfache Programmierung eigener Pascal + BASIC-Mischprogramme. 


Systemanforderungen: 
APPLE-Pascal (II.1 oder 1.1) 
DOS 3.3 


Wenn Sie über das Pascal + BASIC-System verfügen, wird es unnötig, Pro- 
gramme, die schon für BASIC entwickelt worden sind, ein zweites Mal zu 
schreiben. Die meisten von ihnen lassen sich auf Pascal-Disketten speichern 
und mit dem Pascal-Betriebssystem benutzen. So habe ich zum Beispiel un- 
ter BASIC dreidimensionale Hi-Res-Grafikroutinen entwickelt, sie auf 
Pascal-Disketten gespeichert und dann in Pascal-Programmen verwendet. 
Das Herz des Pascal + BASIC-Systems besteht aus der Unit BASIC- 
STUFF und dem Hybridprogramm PBMENU, das auf diese Unit zugreift. 


Verzeichnis der Listings 


Listing Nr.] 
PBMENU: Ein Pascal-Hybridprogramm, mit dem fast jede Rou- 
tine aus BASICSTUFF interaktiv benutzt werden kann. 


Listing Nr.2 
BASICSTUFF: Eine Unit, die es nach ihrem Einbau in die SY- 
STEM.LIBRARTY gestattet, mit dem ROM-residenten BASIC zu 
interagieren, das sich gleichzeitig im Speicher befindet. 


Listing Nr.3 
PBPROC: Externe Prozeduren, die von BASICSTUFF benutzt 
werden. 


Listing Nr.4 
DOS32K: Ein Pascal-Programm, das DOS 3.3-Masterdisketten 
in 32K-Disketten konvertiert, damit PBMENU beim Laden von 
DOS nicht überschrieben wird. 
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Wie man PBMENU benutzt 


PBMENU ist leicht zu bedienen, da seine Befehlsoptionen entweder selbster- 
klärend sind oder BASIC-Anweisungen entsprechen. 


Bildschirmausgabe von PBMENU: 
PASCAL + BASIC: BEFEHLSMENÜ 


BRUN 
BSAVE 
BLOAD 
RUN 

SAVE 
LOAD DOS 
CALL 
ROM CALL 
QUIT 


RECHTS- UND LINKSPFEIL ZUR CURSORBEWEGUNG 
LEER- ODER RETURN-TASTE FÜHRT GEWÄHLTEN BEFEHL AUS 


LOAD DOS - Lädt das DOS von einer Pascal-Datei in den Hauptspeicher, 
bindet es in das Pascal-Betriebssystem ein und ruft das jeweilige, ROM- 
residente BASIC auf. Diese Option geht davon aus, daß das DOS bereits auf 
einer Pascal-Diskette unter dem Namen ‘‘DOS.3.3.BIN‘‘ gespeichert wurde 
(später mehr darüber). Wenn man diese Option wählt, wird das DOS in die 
Adressen $5600 bis 7FFF geladen und HIMEM: automatisch gesetzt, um es 
vor einem Überschreiben zu schützen. 


ROM CALL - Funktioniert wie der normale CALL-Befehl mit dem Unter- 
schied, daß das ROM vor dem Sprung eingeschaltet wird. ROM CALL rettet 
außerdem bestimmte Pascal-Informationen, die überschrieben werden 
könnten, tauscht die Pascal-Zero-Page gegen die BASIC-Zero-Page aus und 
stellt beim Rücksprung den alten Zustand wieder her. 


SAVE und BSAVE hängen automatisch das Suffix ‘‘.BAS‘“‘ oder ‘‘.BIN‘‘ an 
den vom Benutzer angegebenen Dateinamen. RUN und BRUN stellen das 
entsprechende Suffix automatisch zur Verfügung. Alle anderen Befehlsop- 
tionen funktionieren genauso wie ihre BASIC-Entsprechungen. 


Mit SAVE oder BSAVE erzeugte Dateien haben in ihrem ersten Block einen 
Record, der PBCODEINFO genannt wird und wichtige Informationen ent- 
hält (vgl. Listing Nr.2). Diese Informationen werden von RUN und BRUN 
benutzt und enthalten Angaben wie die Startadresse der Routine, die Code- 
länge und eine komplette Kopie der Zero-Page zur Zeit der Speicherung. 
Das PBMENU-Programm teilt den Hauptspeicher so auf, daß der BASIC- 
Teil des Systems einem 32k-Rechner entspricht. Wegen dieser Speicherbe- 
schränkung kann es vorkommen, daß manche Programme für das 
Pascal + BASIC-System zu lang sind. Mit Hilfe von ein paar Tests kann man 
aber schnell herausbekommen, welche Programme man besser nicht benut- 
zen sollte. 


Das Pascal + BASIC-System bietet mehrere Möglichkeiten, ins BASIC und 
danach zurück zum Pascal zu gelangen. 
Wie man BASIC aufrufen kann: 
ROMCALL -8192 als Einsprungadresse für das ROM-residente BASIC. 
ROMCALL -155 oder -151 zum Eintritt in den Monitor. 


LOADDOS zum Laden des DOS und Eintritt ins BASIC. 


Wie man ins Pascal zurückkommt: 
CALL 7 vom BASIC 
CALL 1016 vom BASIC 
“Ctrl-Y[RET]‘‘ vom Monitor 


“T7G[RET]‘‘ oder ‘‘3F8G[RET] vom Monitor 


Funktionsweise 
Die Idee ist ganz einfach: Das Pascal wird nach oben und das BASIC nach 


unten verschoben, damit sich die beiden Betriebssysteme nicht gegenseitig 
stören (s. Abbildung zur Speicheraufteilung). Tatsächlich teilen sich beide 
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Betriebssysteme den Speicherbereich über $D000, aber diese Teilung erfolgt 
störungsfrei, da nur die aktuell benötigte Speicherbank eingeschaltet wird. 
Das RAM der Language Card enthält das Pascal, während die ROMs auf 
der APPLE-Platine das BASIC enthalten. Zwischen beiden wird durch die 
Kontrollcodes $C088 und $C08A hin- und hergeschaltet (s. die Beschreibung 
im APPLE Language System Installation and Operating Manual). 


Speicheraufteilung unter PBMENU 


BASICSTUFF - Ohne BASICSTUFF ist PBMENU nicht funktionsfähig. 
Alle zur Hybridprogrammierung notwendigen Routinen wurden in der 
UNIT BASICSTUFF zusammengefaßt, die jedem Pascal-Programm mit der 
Deklaration USES BASICSTUFF zur Verfügung steht, nachdem sie in die 
SYSTEM.LIBRARY eingefügt worden ist. Hier eine kurze Beschreibung der 
bisher noch nicht erwähnten BASICSTUFF-Routinen: 


MOVEHEAFP gestattet es Ihnen, Ihr Pascal + BASIC-System den jeweiligen 
Erfordernissen der Speicheraufteilung anzupassen. Wenn Sie zum Beispiel 
ein langes Pascal-Programm haben, das ein kurzes BASIC- oder Maschinen- 
programm aufruft, sollte der Heap nur ein wenig verschoben werden. Wenn 
Sie andererseits ein kleines Pascal-Programm verwenden, das ein langes 
BASIC-Programm benutzt, so ist es ggf. erforderlich, den Heap stark nach 
oben zu verschieben. Natürlich muß der Heap vor dem Rücksprung in den 
Command Level des Pascal-Betriebssystems wieder auf seine normale Start- 
position $C00 (3072) zurückgesetzt werden. 

Eine noch raffiniertere Technik besteht darin, den Heap nur ein wenig 
nach oben zu verschieben, um ein langes Pascal-Segment und ein kurzes 
BASIC-Programm zu benutzen, dann den Heap weiter nach oben zu setzen, 
ein kleineres Pascal-Segment aufzurufen und ein langes BASIC-Programm 
auszuführen. Damit das Pascal geschützt ist, wird HIMEM: automatisch auf 
die Untergrenze des Heap gesetzt, falls das DOS (das unterhalb des Heaps 
liegen muß) nicht geschützt ist. 


DISPLAY40 unterdrückt die Ausgabe der rechten Pascal-Textseite. Die mei- 
sten BASIC-Programme benutzen diesen Speicherbereich ($800 - BFF, die 
zweite Textseite). 


DISPLAY80 wird benutzt, um die rechte Seite der Textdarstellung unter 
Pascal wiederherzustellen. Diese Prozedur wird normalerweise unmittelbar 
vor Termination eines Pascal(Hybrid)-Programms aufgerufen. 


FPBASIC ist eine Funktion, die den Wert TRUE liefert, wenn APPLESOFT 
im ROM gelagert ist. Enthält das ROM Integer-BASIC, so liefert FPBASIC 
den Wert FALSE. 


Unterschiede zwischen regulären und intrinsischen 
nits: 


Reguläre Unit Intrinsische Unit 

Code der Unit wird zur Code der Unit wird zur Lauf- 

Link-Zeit in das Hauptpro- zeit in den Speicher geladen. 

gramm eingebunden. 

Hauptprogramm ist von der Hauptprogramm benötigt die 

Unit unabhängig. Unit “‘on-line‘‘ in der 
SYSTEM.LIBRARY. 

Unit verschwendet ggf. Spei- Unit spart Speicherplatz, da 

cherplatz, da ihr Code in je- ihr Code nur einmal in der 

des Hauptprogramm noch- SYSTEM.LIBRARY gespei- 

mals kopiert wird. chert wird. 


Mehr über Units 


Das APPLE-Pascal unterstützt zwei Arten von Units. Jede Art hat ihre Vor- 
und Nachteile. 

Wenn eine reguläre Unit mit dem Linker in ein Hauptprogramm einge- 
bunden wird, wird bei diesem Vorgang der Code dieser Unit tatsächlich in 
das Hauptprogramm eingefügt, so daß die Unit ein Teil des Programms 
wird. Das ist ein Vorteil, da das Programm dadurch von der Original-Unit 
unabhängig wird. Wenn man diese Unit jedoch sehr häufig benutzt, wird ihr 
Code immer wieder in die Hauptprogramme eingebunden, was zu einer un- 
nötigen Verschwendung von Diskettenkapazität führt. 

Mit der intrinsischen Unit verhindert man dieses platzverschwendende 
Kopieren des Unitcodes, indem man ihn in die SYSTEM.LIBRARY einbaut. 
Wenn nun das Hauptprogramm gestartet wird, wird der Code der Unit auto- 
matisch in den Hauptspeicher geladen. Das Hauptprogramm funktioniert 
aber nicht, wenn die SYSTEM.LIBRARY (in welche die Unit eingebunden 
sein muß) zur Laufzeit nicht zur Verfügung steht. 

Jede Unit besteht aus drei Teilen: /nterface, Implementation und Iniitiali- 
sierung. 
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Monitor P-Code $F800 
BASIC (ROM) Interpreter 
nennen $EOOO 
BIOS (2.Bank) s0000 
/O-Adressen $C000 
SYSCLOM 8000 
PBMENU 
Drasca Pascal Heap | gaonı 
Bsasıc DOS 
(falls gealden) 
| $5600 
entspricht frei verfüg- 
einem SZK- barer Speicher- 
Apple platz für BASIC- 
Programme 
$800 


BASIC & DOS 


Abb. 1 Speicherplatzaufteilung von PBMENU 


Der Interface-Teil der Unit ist als einziger für das Hauptprogramm 
“‘sichtbar‘‘. Die im Interface-Teil der Unit verwendeten Konstanten, Typen, 
Variablen, Funktionen und Prozeduren verhalten sich so, als wären sie Be- 
standteil des Hauptprogramms (d.h. sie sind global). 

Der Implementation-Teil ist nur der Unit bekannt und kann daher vom 
Hauptprogramm nicht benutzt werden. 

Der Initialisierungsteil wird beim Laden der Unit ausgeführt, bevor das 
Hauptprogramm gestartet wird. 


Das Kopieren von DOS auf Pascal-Disketten 


1) Kopieren Sie Ihre DOS 3.3-System-Master-Diskette mit einem Disketten- 
kopierprogramm (d.h. benutzen Sie nicht den INIT-Befehl und das FID- 
Programm). 

2) Löschen Sie die nicht im ROM befindliche BASIC-Version von der gera- 
de kopierten Diskette. 

Dadurch wird verhindert, daß das Pascal während des Bootens über - 
schrieben wird. 

3) Konvertieren Sie mit Hilfe des Pascal-Programms DOS32K die DOS 3.3- 
Master-Diskette in eine 32k-Disk. 

4) Starten Sie PBMENU (achten Sie darauf, daß Sie mindestens 22 zusam- 
menhängende, freie Diskettenblocks zur Verfügung haben). 

5) Rufen Sie das BASIC mit ROM CALL -8192 auf. 

6) Legen Sie die 32k-Master-Diskette in das Bootlaufwerk ein. 

7) Geben Sie ‘“PR #6«Ret»‘‘ ein, um die Diskette zu booten und das DOS 
in den Hauptspeicher zu laden. 

8) Geben Sie ‘‘CALL 7“ ein, damit Sie wieder ins Pascal zurückkommen. 

9) Legen Sie wieder Ihre Pascal-Diskette in das Bootlaufwerk ein. 

10) Benutzen Sie den BSAVE-Befehl mit folgenden Parametern: 


DATEINAME = ‘“DOS.3.3“ 
STARTADRESSE = 22016 
LÄNGE = 10751 


11) Re-initialisieren Sie das System durch Drücken der RESET-Taste. 


Nunmehr sollte sich DOS 3.3 auf Ihrer Pascal-Diskette befinden. 

Wenn Sie zwei Laufwerke haben, können Sie eines mit einer Pascal- und 
das andere mit einer BASIC-Diskette betreiben. Natürlich dürfen Sie den 
CATALOG-Befehl nicht auf eine Pascal-Diskette anwenden. Befindet sich 
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die BASIC-Diskette in Laufwerk Nr.2, so dürfen Sie nicht vergessen, “‘CA- 
TALOG,D2“ einzugeben. 


Ein paar Anmerkungen zur Hybridprogrammierung 


Bei fast allen Hybridprogrammen müssen folgende Operationen vorgenom- 
men werden, um Überschneidungen zwischen den beiden Betriebssystemen 
zu vermeiden: 


1) Im allgemeinen verschiebt man zunächst den Heap nach oben, um Platz 
für Maschinen- oder BASIC-Programme zu schaffen. Man kann auch 
den Heap verschieben, um Pascal Code Patches zu verbergen, aber dafür 
gibt es einfachere und bessere Methoden, die ich bald veröffentlichen 
möchte. 

2) Es ist wichtig, daß nur 40 Textspalten auf dem Bildschirm ausgegeben 
werden, wenn die Hauptspeicheradressen $800 bis $BFF (zweite Textsei- 
te) benutzt werden sollen. 

3) Schließlich müssen Sie, nachdem das Hybridprogramm gelaufen ist, den 
Heap wieder auf seine alte Adresse setzen, sonst kann es passieren, daß 
Sie für Programme wie den SYSTEM.EDITOR o.ä. nicht mehr genug 
Speicherplatz zur Verfügung haben. 


Das Programm PBMENU (Listing Nr.1) ist ein gutes Hybridbeispiel, nach 
dessen Muster Sie Ihre eigenen Programme schreiben können. Ein weiteres 
kurzes Beispiel finden Sie in Listing Nr.5. Das PROGRAM HYBRID de- 
monstriert, wie einfach Hybridprogrammierung sein kann, wenn die UNIT 
BASICSTUFF erst einmal in der Bibliothek steht. Das Programm beginnt in 
Pascal, führt ein BASIC-Programm namens DEMO aus, startet dann mit 
BRUN eine Maschinenroutine mit dem Namen MUSIC, springt ins Pascal 
zurück, ruft mit ROMCALL eine Monitorroutine auf und kehrt schließlich 
wieder zu Pascal zurück - ein echtes Hybridprogramm. Bevor man ein Pro- 
gramm wie HYBRID ausführen kann, müssen die Maschinenroutinen und 
das BASIC mit einem Programm wie PBMENU auf einer Pascal-Diskette 
gespeichert werden. Nebenbei bemerkt müssen die WRITE-Anweisungen in 
HYBRID eingeklammert werden, damit sich das Programm nicht aufhängt. 


Die Benutzung des Programms 


Wenn Sie das alte Pascal (II.1) verwenden wollen, müssen Sie zwei Adressen 
(MAXCOL und SCR2) wie in Listing Nr.3 gezeigt ändern. Wenn Sie ein ex- 
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ternes Terminal oder eine 80-Zeichen-Karte verwenden, verändert sich das 
Pascal-System geringfügig, so daß gewisse Modifikationen notwendig wer- 
den (z.B. sind die Bildschirm-Kontrollcodes anders, der Heap beginnt bei 
$800 anstelle von $C00 usw.). 


Es gibt zwei Methoden, das Pascal + BASIC-System zu installieren. Bei 


der ersten benutzt man BASICSTUFF in Form einer regulären Unit, was 
sich besonders zur Fehlersuche eignet. Bei der zweiten Methode wird BA- 
SICSTUFF als intrinsische Unit in die SYSTEM.LIBRARY eingebunden. 
Diese Methode eignet sich besser für die normale Hybridprogrammierung. 


Methode Nr.1: 


Zu Testzwecken kompilieren Sie die UNIT BASICSTUFF als 
Teil des Programms PBMENU. Das geschieht ganz einfach da- 
durch, daß man die gesamte Unit hinter den Programmanfang 
kopiert. Dabei müssen nur zwei kleine Änderungen vorgenom- 
men werden: Zunächst muß man die Unit in eine reguläre Unit 
verwandeln, indem man den Text “INTRINSIC CODE 25 CO- 
DE 26°‘ aus dem Kopf der Unit löscht. Als zweites muß der 
Punkt (.) am Ende der Unit in ein Semikolon (;) umgewandelt 
werden, damit der Compiler nicht schon an dieser Stelle abbricht, 
bevor er das Hauptprogramm erreicht. Wenn diese Änderungen 
eingetragen sind, können Sie das Hauptprogramm und die Unit 
zusammen kompilieren und mit den externen Prozeduren 
(PBPROC) verbinden. Wenn dann alle Routinen aus BASIC- 
STUFF getestet sind und wunschgemäß laufen, kann die Unit 
wieder in eine INSTRINSIC UNIT zurückverwandelt, separat 
kompiliert, mit den Maschinenroutinen verbunden und in der 
SYSTEM.LIBRARY installiert werden. 


Methode Nr.2: 
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Vielleicht wollen Sie BASICSTUFF gleich in die SYSTEM. 
LIBRARY einbauen. In diesem Fall muß die in Listing Nr.2 ab- 
gedruckte UNIT BASICSTUFF kompiliert und mittels des 
SYSTEM.LINKER mit den assemblierten Prozeduren aus List- 
ing Nr.3 verbunden werden. Diese so kompilierte und ver- 
schränkte Unit muß dann mit dem Hilfsprogramm APPLE3: 
LIBRARY in der SYSTEM.LIBRARY installiert werden. Da- 
nach kann man jedes Hybridprogramm (wie z.B. PBMENU) von 
der Unit getrennt kompilieren und benutzen, um die faszinieren- 
de Welt des Pascal + BASIC-Systems zu erforschen. Weitere Ein- 
zelheiten über die Benutzung des Compilers, Assemblers, Linkers 
oder der Bibliothek finden Sie in Ihren Pascal-Handbüchern. 


Schlußbemerkung 


Es dauert vielleicht ein Weilchen, bis das Pascal + BASIC-System installiert 
ist, wenn das System aber läuft, haben Sie nicht nur eine Menge über Ihren 
Computer gelernt, sondern Ihnen stehen dann auch die außergewöhnlichen 
Möglichkeiten eines Hybridsystems zu Verfügung, mit dem Sie viele neue 


und interessante Phänomene entdecken können. 


GR) 


(* LISTING #1: PBMENU, EIN PASCAL+BASIC *) 
(* HYBRID-PROGRAM *) 
(* *) 
(* VON RON DEGROAT 3/81 *) 


GFEEFERRRERRREERERRRERRPRRRRRRR) 


(*$S+,V-*) 
PROGRAM PBMENU; 


USES BASICSTUFF; 

CONST BAS='.BAS'; (* Suffixe fuer Filenamen *) 
BIN='.BIN'; 
NOTHING=''; 


STARTOFHEAP=3072; (* Mit 80 Col Karte : *) 
(* Start bei $800 *) 


VAR HOME ,ERASEOL, BELL,CH :CHAR; 


F :FILE; 
TESTNAME, FILENAME :STRING[25]; 
SUFFIX :STRING[5]; 
ADDR,CODELEN, NUMBLKS,I :INTEGER; 
DONE :BOOLEAN; 


PROGEDURE DOIT(CHOICE:INTEGER); FORWARD; 


PROCEDURE PROMPTAT(LINE:INTEGER; MESSAGE:STRING); 


BEGIN 
GOTOXY(O,LINE); 
WRITE(MESSAGE, ERASEOL); 
END; (’*PROMPTAT*) 


PROCEDURE IOERRCHK; 
VAR IOERR:INTEGER; 
BEGIN 
IOERR:=IORESULT; 
IF IOERR<>O THEN BEGIN 
CLOSE(F); 
WRITELN(BELL); 
WRITELN( "EA-FEHLER NR." ,IOERR); 
IF IOERR=10 THEN 
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WRITELNC'KEIN FILE ',TESTNAME); 
WRITE( 'WEITER MIT LEERTASTE'); 
READ(CH); EXIT(DOIT); 

END; 
END; (*IOERRCHK*) 


PROCEDURE FILECHK; 

BEGIN 
TESTNAME:=CONCAT(FILENAME ‚SUFFIX) ; 
(*$I-*) 

RESET(F,TESTNAME); IOERRCHK; 
(*$I+*) 

CLOSE(F); 


PROCEDURE GETFILENAME; 

BEGIN 
PROMPTAT(O, 'FILENAME ==> '); 
READLN(FILENAME) ; 

END; 


PROCEDURE GETADDR(PROMPT:STRING); 
BEGIN 
PROMPTAT(2,PROMPT); 
READLN(ADDR); 
END; 


PROCEDURE BINLOAD; 

BEGIN 
PROMPTAT(22, "ERFORDERT VOLLSTAENDIGEN FILE NAMEN'); 
PROMPTAT(23, "INCLUSIVE SUFFIX (BAS,BIN,CODE)'); 
GETFILENAME; 
SUFFIX:=NOTHING; FILECHK; 
GETADDR( "LADEADRESSE => '); 
BLOAD(FILENAME,ADDR); 

END; (*BINLOAD*) 


PROCEDURE BINSAVE; 

BEGIN 

GETFILENAME; 

GETADDR( 'STARTADR ==> '); 
PROMPTAT(4, 'LAENGE IN BYTES => '); 
READLN(CODELEN) ; 

BSAVE(FILENAME, ADDR,CODELEN) ; 

END; (*BINSAVE*) 


PROCEDURE BASICSAVE; 
BEGIN 
GETFILENAME; 
SAVE(FILENAME); 
END; (*SAVE*) 


PROCEDURE BASICRUN; 
BEGIN 

SUFFIX:=BAS; 
GETFILENAME; FILECHK; 
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RUN(FILENAME) ; 
END; (*RUN*) 


PROCEDURE BINRUN; 

BEGIN 
SUFFIX:=BIN; 
GETFILENAME; FILECHK; 
BRUN(FILENAME); 

END; (*BRUN*) 


PROCEDURE CALLIT; 

BEGIN 
GETADDR( 'AUFZURUFENDE ADR ==> '); 
CALL(ADDR); 

END; (*CALL*) 


PROCEDURE ROMCALLIT; 

BEGIN 
GETADDR('AUFZURUFENDE ROM ADR ==> '); 
ROMCALL(ADDR); 

END; (*ROMCALL*) 


PROCEDURE DOS; 
BEGIN 
FILENAME:='"DOS.3.3'; SUFFIX:=BIN; 
FILECHK; 
WRITE('LADE D0S...'); 
LOADDOS; 
END; 


PROCEDURE DOIT; 
BEGIN 
CASE CHOICE OF 
0:BINRUN; 
1:BINLOAD; 
2:BINSAVE; 
3:BASICRUN; 
4:BASICSAVE; 
5:D0OS; 
6:CALLIT; 
7:ROMCALLIT; 
8:DONE:=TRUE; 
END; (*CASE*) 
END; (*DOIT*) 


PROCEDURE MENUOPTIONS ; 
CONST NUMOPTIONS=9; 
STARTMENU=3; 
sP=' '; 
TYPE OPTIONS=STRING[10]; 


VAR MENU:PACKED ARRAY[O..NUMOPTIONS ] 
OF OPTIONS; 


NEXT ,SELECTION: INTEGER ; 


INVERSE, NORMAL, 
LEFT,RIGHT:CHAR; 


PROCEDURE INITMENU; 

BEGIN 
MENU[O]:='BRUN'; 
MENU[1]:="BLOAD'; 
MENU[2]:="BSAVE'; 
MENU[3]:="RUN'; 
MENU[4]:="SAVE'; 
MENU[5]:="LOAD DOS'; 
MENU[6]:="CALL'; 
MENU[7]:="ROM CALL'; 
MENU[8]:="QUIT'; 
SELECTION:=0; 

END; (*INITMENU*) 


PROCEDURE DISPLAYMENU; 
BEGIN 
WRITE(HOME) ; 
WRITE( 'PASCAL+BASIC: HAUPTMENUE'); 
GOTOXY(0,STARTMENU); 
FOR I:=0 TO NUMOPTIONS-1 DO 
BEGIN 
WRITELN(SP:14,MENU[I]); 
WRITELN; 
END; 
PROMPTAT(22, 'LINKS- UND RECHTSPFEILE ZUM BEWEGEN DES CURSORS'); 
PROMPTAT(23,'MIT LEER- ODER RETURNTASTE WIRD OPTION AUSGEFUEHRT'); 
END; 


PROCEDURE MAKESELECTION; 
BEGIN 
REPEAT 
GOTOXY(O,STARTMENU+2*SELECTION) ; 
WRITE(SP:14, INVERSE ,MENU[SELECTION]); 
READ(KEYBOARD,CH); 
IF (CH=LEFT) OR (CH=RIGHT) THEN 
BEGIN 
GOTOXY(O,STARTMENU+2*SELECTION) ; 
WRITELN(NORMAL,SP:14,MENU[SELECTION]); 
IF CH=RIGHT THEN NEXT: =1 
ELSE NEXT:=-1; 
NEXT :=NEXT+NUMOPTIONS; 
SELECTION:=(SELECTION+NEXT) MOD NUMOPTIONS; 
END 
UNTIL CH=SP; 
WRITE(NORMAL, HOME) ; 
END; 


PROCEDURE MENUOPTIONS; 

CONST NUMOPTIONS=9; 
STARTMENU=3; 
SPp=' '; 


TYPE OPTIONS=STRING[10]; 
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VAR MENU:PACKED ARRAY[O..NUMOPTIONS ] 
OF OPTIONS; 


NEXT ,SELECTION: INTEGER; 


INVERSE,NORMAL, 
LEFT,RIGHT:CHAR; 


PROCEDURE INITMENU; 

BEGIN 
MENU[O]:="BRUN'; 
MENU[1]:="BLOAD'; 
MENU[2]:="'BSAVE'; 
MENU[3]:="RUN'; 
MENU[4]:="SAVE'; 
MENU[5]:="LOAD DOS'; 
MENU[6]:="CALL'; 
MENU[7]:="ROM CALL’; 
MENU[8]:="QUIT'; 
SELECTION:=0; 

END; (*INITMENU*) 


PROCEDURE DISPLAYMENU; 
BEGIN 
WRITE(HOME) ; 
WRITE( 'PASCAL+BASIC: HAUPTMENUE'); 
GOTOXY(O,STARTMENU); 
FOR I:=0 TO NUMOPTIONS-1 DO 
BEGIN 
WRITELN(SP:14,MENU[I]); 
WRITELN; 
END; 
PROMPTAT(22, 'LINKS- UND RECHTSPFEILE ZUM BEWEGEN DES CURSORS'); 
PROMPTAT(23, 'MIT LEER- ODER RETURNTASTE WIRD OPTION AUSGEFUEHRT'); 
END; 


PROCEDURE MAKESELECTION; 
BEGIN 
REPEAT 
GOTOXY(O,STARTMENU+2*SELECTION) ; 
WRITE(SP:14, INVERSE ,MENU[ SELECTION]); 
READ(KEYBOARD,CH) ; 
IF (CH=LEFT) OR (CH=RIGHT) THEN 
BEGIN 
GOTOXY(0,STARTMENU+2*SELECTION) ; 
WRITELN(NORMAL,SP:14 ,MENU[SELECTION]); 
IF CH=RIGHT THEN NEXT: =1 
ELSE NEXT:=-1; 
NEXT :=NEXT+NUMOPTIONS; 
SELECTION:=(SELECTION+NEXT) MOD NUMOPTIONS; 
END 
UNTIL CH=SP; 
WRITE(NORMAL, HOME) ; 
END; 


BEGIN (*MENUOPTIONS*) 


INVERSE:=CHR(18); (*CTL-R*) 
NORMAL: =CHR( 20); (*CTL-T*) 


RIGHAT:=CHR(21); (*CTL-U, -> *) 
LEFT:=CHR(8); (*CTL-H, <- *) 
DONE: =FALSE; 


INITMENU; 


REPEAT 
DISPLAYMENU; 
MAKESELECTION; 
DOIT(SELECTION); 

UNTIL DONE; 

END; (*MENU*) 


BEGIN (*MAIN PROGRAM*) 


(*Die hier verwendeten Ctrl-Zeichen koennen bei*) 
(*externen Terminals, Videokarten usw, ggf. abweichen*) 


BELL:=CHR(7); (*CTL-6*) 
HOME:=CHR(12); (*CTL-L*) 
ERASEOL:=CHR(29); (*CTL-]*) 


(*Nur linke Bildschirmhaelfte anzeigen*) 
DISPLAY4O; 

(*HEAP von $CO0O nach $8001 verschieben*) 
MOVEHEAP(STARTOFHEAP,-32767); 
MENUOPTIONS; 

DISPLAY8O; 
MOVEHEAP(-32767,STARTOFHEAP); 
END. 


GRRgERRRRERRERRe) 
(* LISTING #2: UNIT BASICSTUFF *) 
(* *) 


(* VON RON DEGROAT 3/81 *) 
Ger) 


(*$S+,V-*) 
UNIT BASICSTUFF; INTRINSIC CODE 25 DATA 26; 


(* Entfernt man "INTRINSIC CODE 25 DATA 26' *) 
(* so wird BASICSTUFF zur regulaeren Unit. *) 


(* Diese Unit muss kompiliert, mit den in *) 


(* Listing Nr. 3 abgebildeten externen *) 
(* Prozeduren gelinkt und in die *) 
(* SYSTEM.LIBRARY eingebunden werden. *) 
INTERFACE 
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TYPE UNITSTR=STRING[ 25]; 


VAR BASZERPG:PACKED ARRAY[0..255] OF 0..255; 
UNITFID: FILE; 


PROCEDURE LOADDOS; 

PROCEDURE DOSRESET; 

PROCEDURE DISPLAY4O; 

PROCEDURE DISPLAY80; 

FUNCTION FPBASIC:BOOLEAN; 

PROCEDURE RUN(FILENAME:UNITSTR); 

PROCEDURE SAVE(FILENAME:UNITSTR); 

PROCEDURE BRUN(FILENAME:UNITSTR); 

PROCEDURE CALL(ADDR:INTEGER); 

PROCEDURE ROMCALL(ADDR:INTEGER); 

PROCEDURE MOVEHEAP(OLDLOC ‚NEWLOC: INTEGER); 

PROCEDURE BLOAD(FILENAMEE:UNITSTR; BEGINADDR:INTEGER); 
PROCEDURE BSAVE(FILENAME:UNITSTR; BEGINADDR,CODELEN: INTEGER); 


IMPLEMENTATION 


CONST DOSLOADADDR=22016; 
DOSINIT=23940; (* $5D84 *) 


TYPE MAGIC=RECORD CASE BOOLEAN OF 
TRUE: (INTPART: INTEGER); 
FALSE: (PTRPART: "INTEGER); 
END; 


BYTE=0..255; 
PAGEOFMEM=PACKED ARRAY[0..255] OF BYTE; 


VAR CHEAT,SOURCE ,DEST:MAGIC; 
SUFFIX:STRING[5]; 


NUMBLKS,I,IO, 
HIMEM, HIMEMADDR, 
ENDADDR ‚RUNADDR ‚LOADADDR:INTEGER; 


DOSLOADED : BOOLEAN; 


PBCODEINFO:PACKED RECORD 
CODELENG , CODEADDR ; INTEGER; 
NAME: STRING[ 25]; 
STARTADDR : INTEGER; 
BASICZERPG : PAGEOFMEM; 
COMMENT : STRING; 
FILLER:ARRAY[O..71] OF INTEGER; 

END; 


PROCEDURE CALL; EXTERNAL; 
PROCEDURE ROMCALL; EXTERNAL; 
PROCEDURE DOSRESET; EXTERNAL; 
PROCEDURE DISPLAY40; EXTERNAL; 
PROCEDURE DISPLAY8O; EXTERNAL; 
PROCEDURE INITBASZERPG; EXTERNAL; 
FUNCTION FPBASIC; EXTERNAL; 
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PROCEDURE POKEWORD(ADDR,DATA:INTEGER); 
BEGIN 

CHEAT.INTPART:=ADDR; 

CHEAT. PTRPART" :=DATA; 
END; (*POKE*) 


FUNCTION PEEKWORD(ADDR:INTEGER) :INTEGER; 
BEGIN 
CHEAT.INTPART:=ADDR; 
PEEKWORD:=CHEAT.PTRPART" ; 
END; (*PEEK*) 


PROCEDURE MOVEHEAP; 
(*HEAP beginnt normalerweise bei $C00 (3072) *) 


CONST NP=90; (* TOP OF HEAP *) 


VAR HEAPINFO,HPSTOP,HEAPPTR,LEN, 
ISPLACEMENT : INTEGER; 
HEAP: "INTEGER; 


BEGIN 
HEAPINFO:=PEERWORD(98)+14; 
HPSTOP :=HEAPINFO+112; 
DISPLACEMENT ; =NEWLOC-OLDLOGC; 
HIMEM:=NEWLOG; 


(*Heaplaenge ermitteln*) 
MARK(HEAP); (*Heap so klein wie*) 
RELEASE(HEAP); (*moeglich machen*) 
LEN:=PEEKWORD(NP)-OLDLOC; 


(*Setze NP (TOP OF HEAP) fest*) 
POKEWORD(NP ,PEEKWORD(NP)+DISPLACEMENT) ; 


(*Zeiger aendern*) 
FOR I:=0 TO 2 DO (%*System Heap Zeiger*) 
BEGIN 
HEAPPTR :=PEEKWORD(HEAPINFO+I*2); 
POKEWORD(HEAPPTR ,PEEKWORD(HEAPPTR)+DISPLACEMENT) ; 
END; 


HEAPPTR:=PEEKWORD(HEAPINFO); (*Zeiger verschieben*) 
REPEAT 
POKEWORD(HEAPINFO, HEAPPTR+DISPLACEMENT); 
HEAPINFO:=HEAPINFO+2; 
HEAPPTR :=PEEKWORD(HEAPINFO); 
UNTIL (HEAPINFO>HPSTOP); 


(*Heap verschieben*) 
SOURCE. INTPART:=OLDLOC; 
DEST.INTPART:=NEWLOC; 
MOVELEFT(SOURCE.PTRPART“ ,DEST.PTRPART”,LEN); 
END; (*MOVEHEAP*) 


PROCEDURE SAVEFILE(FILENAME:UNITSTR; 
BEGINADDR , CODELEN : INTEGER) ; 
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BEGIN 
CHEAT.INTPART:=BEGINADDR; 
PBCODEINFO.BASICZERPG:=BASZERPG; 
NUMBLKS:=(CODELEN + 511) DIV 512; 
REWRITE(UNITFID, FILENAME) ; 
IO:=BLOCKWRITE(UNITFID, PBCODEINFO, 1,0); 
FOR I:=1 TO NUMBLKS DO BEGIN 
IO:=BLOCKWRITE(UNITFID,CHEAT.PTRPART“ ,1,I); 
CHEAT.INTPART:=CHEAT,. INTPART+512; 
END; 
CLOSE(UNITFID,LOCK); 

END; (*SAVEFILE*) 


PROCEDURE BSAVE; 

BEGIN 

WITH PBCODEINFOR DO BEGIN 

NAME :=CONCAT(FILENAME, '.BIN'); 

STARTADDR :=BEGINADDR; 

CODELENG :=CODELEN; 

SAVEFILE(NAME , BEGINADDR ‚CODELEN) ; 
END; 
END; (*BSAVE*) 


PROCEDURE SAVE; 
BEGIN 
WITH PBCODEINFO DO BEGIN 
NAME: =CONCAT(FILENAME, '.BAS'); 
STARTADDR :=BASZERPG[ 104 ]#256+BASZERPG[ 103] ; 
ENDADDR :=BASZERPG[ 176 ]*256+BASZERPG[ 175]; 
CODELENG:=ENDADDR-STARTADDRH+1 ; 
SAVEFILE(NAME,STARTADDR, CODELENG) ; 
END; 
END; (*SAVE*) 


PROCEDURE BLOAD; 
BEGIN 
CHEAT.INTPART:=BEGINADDR; 
I:=1; 
RESET(UNITFID, FILENAME); 
WHILE NOT EOF(UNITFID) DO 
BEGIN 
IO:=BLOCKREAD(UNITFID,CHEAT.PTRPART* ,1,I); 
I:=1I+1; 
CHEAT. INTPART:=CHEAT.INTPART+512; 
END; 
CLOSE(UNITFID,LOCK); 
END; (*BLOAD*) 


PROCEDURE SETHIMEM; 

VAR UM:PACKED ARRAY[O..1] OF BYTE; 
BEGIN 

(*Integer in Bytearray konvertieren*) 
MOVELEFT(HIMEM,HM,2); 
BASZERPG[HIMEMADDR] :=HM[ 0]; 
BASZERPG[ HIMEMADDR+1]:=HM[1]; 
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PROCEDURE CONNECT(CSWL,CSWH,KSWL,KSWH:BYTE); 
BEGIN 
BASZERPG[ 54 ]:=CSWL; BASZERPG[ 55] :=CSWH; 
BASZERPG[ 56]:=KSWL; BASZERPG[ 57]:=KSWH; 
END; 


PROCEDURE LOADFILE(FILENAME:UNITSTR); 
BEGIN 
FILENAME :=CONCAT(FILENAME,SUFFIX); 
(*PBCODEINFO holen*) 
RESET(UNITFID,FILENAME); 
IO:=BLOCKREAD(UNITFID, PBCODEINFO,1,0); 
CLOSE(UNITFID,LOCK) ; 
BASZERPG :=PBCODEINFO .BASICZERPG; 
LOADADDR :=PBCODEINFO.STARTADDR; 
IF DOSLOADED THEN CONNECT(189,94,129,94) 
ELSE CONNECT(240,253,27,253); 
IF SUFFIX='.BAS'!' THEN (*ERR BYTE loeschen*) 
POKEWORD(LOADADDR-1,0); 
BLOAD(FILENAME, LOADADDR) ; 
END; (*LOADFILE*) 


PROCEDURE RUN; 

BEGIN 
SUFFIX:='.BAS'; 
LOADFILE(FILENAME); ; 
SETHIMEM; 
ROMCALL(RUNADDR) ; 

END; (*RUN*) 


PROCEDURE BRUN; 

BEGIN 
SUFFIX:='.BIN'; 
LOADFILE(FILENAME) ; 
ROMCALL(LOADADDR); 

END; (*BRUN*) 


PROCEDURE LOADDOS; 

BEGIN 
BLOAD( 'DOS.3.3.BIN' ‚DOSLOADADDR); 
DOSLOADED: =TRUE; 

HIMEM:=DOSLOADADDR; (* $5600 *) 
SETHIMEM; 

(* DOS Vektoren von Seite drei holen *) 
SOURCE. INTPART:=24145; (* $5E51 *) 
DEST.INTPART:=976; (* $3D0O *) 
MOVELEFT(SOURCE. PIRPART“ ‚DEST.PTRPART" ,47); 
DOSRESET; (*SOFT ENTRY Vektor aendern*) 
ROMCALL(DOSINIT); 

END; (*DOS*) 


PROCEDURE INITPBCODEINFO; 
BEGIN 
WITH PBCODEINFO DO 
BEGIN 
CODELENG:=0;CODEADDR: =1; 
FILLCHAR(NAME,25,' '"); 
STARTADDR:=0; 
FOR I:=0 TO 255 DO BASICZERPG[I]:=0; 
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FOR I:=0 TO 71 DO FILLER[I]:=0; 
COMMENT:='P+B BY RON DEGROAT 2/81'; 


END; 
END; (*INITPB*) 


BEGIN (*Hauptprogramm*) 

DOSLOADED: =FALSE; 

HIMEM:=3072; (* $COO, unteres Heapende*) 

INITPBCODEINFO; INITBASZERPG; 

IF FPBASIC THEN BEGIN 
RUNADDR:=-10906; (* $D566 *) 
HIMEMADDR:=115; (* $73-74*) 

END 
ELSE BEGIN 

RUNADDR :=-4116; (* $EFEC *) 
HIMEMADDR:=76; (* $4C-4D*) 
END; 


END. (*'.' in ';' umwandeln, wenn Unit und Hauptprogramm*) 


(*gemeinsam kompiliert werden sollen *) 


;LISTING #3: PBPROC, VON BASICSTUFF VERWENDETE ROUTINEN 
‚VON RON DEGROAT 3/81 


äTäeeeeeÖ6Ö—_—_—_2_2 a ne De, 


‚Adresse vom Stack holen 


„MACRO POP ;FORMAT: POP ADDR 


STA Z1+1 
„ENDM 


‚Adresse auf Stack ablegen 


.MACRO PUSH ;FORMAT: PUSH ADDR 
LDA Zl+l 

PHA 

LDA %1 

PHA 

.ENDM 


:Subroutine fuer ROM-Aufruf 


.MACRO RCALL ;FORMAT: RCALL ADDRESS 
STA O0CO8A ;ENABLE ROM 

JSR 71 

STA 0C088 ;‚RE-ENABLE RAM 

„ENDM 


:Daten oder Routine laden (maximal 256 Bytes) 
.MACRO LOAD ;FORMAT: 


LDY #00 »LADE SOURCE, DEST,LEN 
$1 LDA Z1,Y 
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SETNORM 


INIT 
SETVID 
SETKBD 


STA 22,Y 


.PUBLIC BASZERPG 


.EQU OFE34 
.EQU OFB2F 
.EQU OFE93 
.EQU OFE89 


FPCHRGET.EQU OF1OA 


CHRGET 


MONVEC 
ZERPAG 


.EQU OBO 


.EQU 03F0 
.EQU 0000 


STK .EQU 0100 
DBUF .EQU 0340 


MAXCOL .EQU ODB7C 
SCR2 .„EQU ODBA6 


‚DISK INFO 


;OD9B9 FUER VER II.1 
;OD9CB FUER VER II.1 


„PROC INITBASZERPG 


„REF ZERTEMP,STKTEMP 


LOAD ZERPAG,ZERTEMP, 000 

LOAD STKTEMP,ZERPAG,000 ;LOESCHEN 
RCALL INITZPG 

LOAD ZERPAG,, BASZERPG, 000 

LOAD ZERTEMP ,ZERPAG,000 


RTS 


INITZPG JSR SETNORM 


JSR INIT 
JSR SETVID 
JSR SETKBD 


LOAD FPCHRGET,CHRGET,O1C 


RTS 


.„FUNC FPBASIC 


;Wenn Applesoft in ROM, dann FPBASIC = TRUE 


„REF RETPAS 


STA 0CO8A 
POP RETPAS 
PLA 

PLA 

PLA 

PLA 

LDY #00 
LDA OEOOO 
CMP #04C 
BNE FALSE 
INY 
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;ROM AKTIVIEREN 
;PASCAL RUECKSPRUNGADRESSE RETTEN 
‚OFFSET AUSSER ACHT LASSEN 


;‚INTEGER ODER FLOATING POINT BASIC 
;SPRUNG, WENN INTEGER BASIC 


FALSE TYA ;LSB = 1 WENN FP 


PHA ;LSB = O WENN INT 
PHA 

PUSH RETPAS 

STA 0C088 ;RAM WAEHLEN 

RTS 


.PROC ROMCALL,1 


‚Zero Pages austauschen, Pascal retten, ROMs einschalten 
‚Danach JSR und bei Ruecksprung alten Zustand wiederherstellen 


„DEF ZERTEMP,STKTEMP ,DEST,RETPAS 
.DEF SOFTEV, PWREDUP 


LOAD ZERPAG ‚ZERTEMP, 000 
LOAD BASZERPG,ZERPAG, 000 
LOAD DBUF,BUFTEMP,012 


LOAD MVEC,MONVEC,010 
LOAD RETJMP,007,003 


POP RETPAS ;PASCAL RUECKSPRUNGADRESSE RETTEN 

POP DEST ;ZIELADRESSE HOLEN 

RCALL ENTRY ;INDIREKTER ZIELAUFRUF 

PUSH RETPAS ;PASCAL RUECKSPRUNGADRESSE WIEDERHERSTELLEN 


;‚Diskinformationen wiederherstellen, Pascal-Nullseite gegen 
;BASIC-Nullseite austauschen und Kaltstartbyte loeschen 


LOAD BUFTEMP, DBUF,012 

LOAD ZERPAG, BASZERPG ,, 000 

LOAD ZERTEMP ,ZERPAG,O000 

STY 03F4 ;KALTSTARTBYTE LOESCHEN 
RTS 


‚Stack retten und nach DEST springen 


ENTRY TSX 
STX SAVESP 
LOAD STK,STKTEMP, 000 
JMP @DEST 


RESTORE LOAD STKTEMP,STK,000 
LDX SAVESP 
TXS 
RTS 


MVEC WORD OFA59 ;BRK 
SOFTEV .WORD OEOO3 
PWREDUP .BYTE 045 

JMP OFF59 ;RESET 
RETJMP JMP RESTORE 

JMP RESTORE 

„WORD OFF65 


DEST „WORD 00 
RETPAS .WORD 00 


SAVESP „BYTE 00 
ZERTEMP „BLOCK 0100 
STKTEMP „BLOCK 0100 
BUFTEMP „BLOCK 012 


.PROC DOSRESET 
„REF SOFTEV , PWREDUP 


LDA #0BF 

STA SOFTEV ;RESET VEKTOR ZEIGT 
LDA #05D ‚AUF DOS 

STA SOFTEV+1 

LDA #0F8 

STA PWREDUP ;KALTSTARTBYTE 

RTS 


.PROC CALL,1 
„REF RETPAS,DEST 


POP RETPAS 
POP DEST 
PUSH RETPAS 
JMP @DEST 


.PROC DISPLAY4O 


LDA 0C083 ;RAM AUF 2. BANK 

LDA 0C083 ;ZUM SCHREIBEN EINSCHALTEN 

LDA #0EA ;NOP 

STA SCR2 

STA SCR2+1 

LDA #27 ;GROESSTE SPALTENNUMER = 39 

STA MAXCOL 

LDA 0C088 ;1. BANK ANWAEHLEN UND GEGEN SCHREIBEN 
;SCHUETZEN 

RTS 


.PROC DISPLAY80 


LDA 0C083 

LDA 0C083 

LDA #0BO ;BCS 

STA SCR2 

LDA #011 

STA SCRE+1 

LDA #04F ;GROESSTE SPALTENNR. = 79 
STA MAXCOL 

LDA 0C088 

RTS 


.END 
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(eekgkasakslekalekgieeiileiaktahitgkiglieielktekik) 
(* LISTING #4: 32K DOS CONVERSION *) 
(* *) 


(* VON RON DEGROAT 3/81 *) 
Garn) 


PROGRAM DOS32K; 


(*Dieses Programm modifiziert eine DVS 3.3 Diskette so, *) 
(*dass sich das DOS wie bei einem 32K System verhaelt. *) 


VAR BLK:PACKED ARRAY[O..511] OF 0..255; 
BLT,BLN: INTEGER; 
S: FILE; 


PROCEDURE WAITFORCR; 
BEGIN 
WRITELN( 'WEITER MIT <RETURN>'); 
READLN; 
END; 


BEGIN 
WRITELN; WRITELN 
("LEGEN SIE EINE KOPIE DER DOS 3.3 MASTER DISK'); 
WRITELN('IN DAS BOOTLAUFWERK (#4:) EIN'); 
WAITFORCR; 
RESET(S,'#4:'); 
BLN:=2; 
BLT:=BLOCKREAD(S,BLK,1,BLN); 
IF (BLK[260]=191) THEN 
BLK[260]:=127 
ELSE 
WRITELN( 'KONVERSION UNMOEGLICH'); 
BLT:=BLOCKWRITE(S,BLK,1,BLN); 
WRITELN;WRITELN( 'WIEDER PASCAL DISK EINLEGEN'); 
WAITFORCR; 
END. 
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David N. Jones 


CODEMAP 


Haben Sie schon einmal vergeblich versucht, ein Pascal-Programm zu star- 
ten, nur um schließlich herauszufinden, daß die Datei nicht eingebunden war 
oder daß eine UNIT benutzt wurde, die nicht in Ihrer SYSTEM.LIBRARY 
stand? Oder daß das Programm überhaupt nicht ausführbar war? Das ist 
normalerweise kein Problem, wenn man das Programm selbst geschrieben 
hat und seine Funktionsweise kennt, aber bei den vielen Programmen, die 
den Benutzern von USCD-Pascal zur Verfügung stehen, können bisweilen 
überraschende Probleme auftreten. UCSD-Code-Dateien enthalten in Block 
Nr.0 ein Segment Dictionary, das eine ganze Reihe interessanter Informatio- 
nen beinhaltet. An dieser Stelle setzt das CODEMAP-Programm an, welches 
das Segment Dictionary liest und bei möglichen Problemen mit den 
Codefiles helfen kann. CODEMAP gibt Auskunft über: 


die Anzahl der Segmente eines segmentierten Programms 

den Namen des Codefiles bzw. der Segmente 

die Art des Segments 

die Blockadresse und Länge des Segments in Bytes 

die Slotnummer 

die Blockadresse des Interface-Teils von Units 

die Art des Codes (P-Code oder Maschinencode) 

die Pascal-Version, mit der das Programm kompiliert wurde 

die Slotnummern der aus der SYSTEM.LIBRARY benötigten Units 


Einige der oben aufgeführten Möglichkeiten bedürfen möglicherweise einer 
näheren Erklärung. Zur Zeit gibt es zwei Versionen (A.d.Ü.: jetzt sind es 
schon drei) des APPLE-Pascal (1.0 und 1.1), und manchmal kann es von In- 
teresse sein zu erfahren, mit welcher Version das Programm übersetzt wur- 
de. Es kann wichtig sein, den Code-Typ zu wissen, wenn das Programm 
rechnerabhängige Routinen verwendet. Beachten Sie bitte, daß ein mit 
6502‘ bezeichnetes Segment nicht notwendigerweise vollständig aus As- 
semblerroutinen besteht: Wenn in das Segment Maschinenroutinen einge- 
bunden sind, wird es nämlich insgesamt mit der Bezeichnung 6502-Code ver- 
sehen. Die Segmentart gibt an, ob das Programm eingebunden ist oder nicht, 
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eine UNIT oder ein DATA-Segment einer Unit darstellt. Jedes Segment be- 
ginnt bei einem neuen Block, und die Blockadresse bezeichnet den Start- 
block des betreffenden Segments relativ zum Anfang der Datei. 

Die Slotnummer ist nur für die Systembibliothek interessant. Wenn Sie 
das CODEMAP-Programm auf die SYSTEM.LIBRARY anwenden, dann 
geben die Slotnummern an, welcher Slot sich auf die jeweilige Unit bezieht. 
CODEMAFP gibt die Slotnummern der notwendigen intrinsischen Units an. 
Vergleicht man die Slotnummern, so erfährt man, welche Units benutzt wer- 
den. Man könnte CODEMAP etwas aufwendiger schreiben, so daß es die 
Segmentnamen aus der Systembibliothek liest und die Namen der notwendi- 
gen Units auflistet, anstatt deren Slotnummern. 

Weitere Informationen über die Definitionen sowie einen Großteil der 
Angaben, die benötigt werden, um CODEMAP zu schreiben, finden Sie im 
Operating. System Reference Manual auf den Seiten 266 bis 270. Einen Teil 
der benötigten Informationen liefert Ihnen auch das Programm LIBMAP 
von der APPLE3:-Diskette. LIBMAP läßt sich sowohl auf Bibliotheken als 
auch auf Codefiles anwenden. Listing Nr.1 enthält den Quelltext des 
CODEMAP-Programms, während Listing Nr.2 zeigt, wie z.B. der Output 
eines SYSTEM.COMPILERS aussehen kann. 


Listing 2 


Code Map fuer #9:system.compiler —----- 


Seg # Name Segment Art Adr Laen Slot Intrf Typ Version 

(6) gelinkt & ausfuehrbar 0 0 0 O Undef. K.A. 

1 PASCALCO gelinkt & ausfuehrbar 1 4486 l 0  P-Code (-) 1.1 

2 COMPINIT gelinkt & ausfuehrbar 10 3226 7 0 P-Code (-) 1.1 

3 DECLARAT gelinkt & ausfuehrbar 17 7574 8 O0 P-Code (-) 1.1 

4 BODYPART gelinkt & ausfuehrbar 32 7208 9 O0 P-Code (-) 1.1 

5 ROUTINE gelinkt & ausfuehrbar 47 2902 10 0 P-Code (-) 1.1 

6 STATEMEN gelinkt & ausfuehrbar 53 1598 11 O0 P-Code (-) 1.1 

7 CASESTAT gelinkt & ausfuehrbar 57 436 12 0 P-Code (-) 1.1 

8 FORSTATE gelinkt & ausfuehrbar 533 512 13 O0 P-Code (-) 1.1 

9 BODY1 gelinkt & ausfuehrbar 59 326 14 0 P-Code (-) 1.1 

10 BODY3 gelinkt & ausfuehrbar 60 858 15 O0 P-Code (-) 1.1 

11 WRITELIN gelinkt & ausfuehrbar 622 818 16 0 P-Code (-) 1.1 

12 UNITPART gelinkt & ausfuehrbar 64 1600 17 O0 P-Code (-) 1.1 

13 COMPOPTI gelinkt & ausfuehrbar 68 1060 18 0  P-Code (-) 1.1 

14 NUMSTRIN gelinkt & ausfuehrbar 71 864 19 0 P-Code (-) 1.1 

15 FINISHUP gelinkt & ausfuehrbar 73 672 20 0 P-Code (-) 1.1 
Erforderliche intrinsische Segmente: Keins 
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(+ Listing 1 


CODEMAP 
Ein Code File Hilfsprogramn 
von 
David N. Jones 


14. Mai 1981 

*) 
(*$I-*) 
PROGRAM CODEMAP; 
CONST 

MAXSEG = 31; 

MAXSLOT= 15; 
TYPE 

SEGRANGE =0..MAXSEG; 

SEGDICRANGE=0. „MAXSLOT; 


MTYPES=(UNDEF ‚PCODEMOST ,PCODELEAST ,PDP11,M8080 ,280,GA440 ‚M6502 ,M6800, TI990) ; 
REVISIONS=(NONAPPLE,ONEZERO ,ONEONE, FUTUREl , FUTURE2,, FUTURE3, 
FUTURE4 ,FUTURES5); 
SEGSET = SET OF SEGRANGE; 
SEGDICREC = RECORD 
DISKINFO: ARRAY[O..15] OF 
RECORD 
CODELENG, CODEADDR : INTEGER 
END; 
SEGNAME: ARRAY[O..15] OF PACKED ARRAY[O..7] OF CHAR; 
SEGKIND: ARRAY[O..15] OF (LINKED,HOSTSEG,SEGPROC,UNITSEG, 
SEPRTSEG,UNLINKED_INTRINS, 
LINKED_INTRINS,DATASEG); 
TEXTADDR: ARRAY[O..15] OF INTEGER; 
SEGINFO:ARRAY[SEGDICRANGE] OF 
PACKED RECORD 
SEGNO:0..255; 
MACHTYPE :MTYPES; 
FILLER:O..1; 
MAJORREVISION:REVISIONS; 
END; 
INTSEGSET :SEGSET; 
FILLER2:ARRAY[O..109] OF INTEGER 
END (%* SEGDICREC *); 
VAR 
SEGDIC:SEGDICREC; 
F:FILE; 
O:INTERACTIVE; 
SEGNOTREQ : BOOLEAN ; 


FUNCTION YESNO : BOOLEAN; 
VAR CH:CHAR; 
BEGIN 
REPEAT 
WRITEC' J(a oder N(ein :'); 
READ(CH); 
WRITELN 
UNTIL CH IN" IN! "5" 1]; 
YESNO:= CH INL'J',"j"]; 
END; 
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PROCEDURE ERROR (MESSAGE :STRING) ; 
BEGIN 

WRITELN; 

WRITELN( '=>FEHLER ' MESSAGE); 


WRITE (' RETURN fuer Abbruch:'!); 
READLN; 
EXIT(CODEMAP) 

END; 


PROCEDURE INIT; 
VAR FCFNAME,OFNAME:STRING; 

BEGIN 
CLOSE(F); 
WRITE('Name des Codefiles ==>!'!); 
READLN(FCFNAME) ; 
RESET(F,FCFNAME); 
IF IORESULT<>O THEN 


ERROR('beim Oeffnen des Codefiles'); 


IF BLOCKREAD(F,SEGDIC,1,0) <> 1 THEN 


ERROR('beim Lesen des Segment Dictionaries'); 


WRITELN('Name der Ausgabedatei '); 
WRITE('<cr> = CONSOLE: ===>'); 
CLOSE(0); 

OFNAME :=''; 
READLN(OFNAME) ; 

IF LENGTH(OFNAME) 
REWRITE(O,OFNAME) ; 
IF IORESULT<>O THEN 


= O0 THEN OFNAME:="CONSOLE: '; 


ERROR('beim Oeffnen des Ausgabefiles'); 


PAGE(O); 
WRITELN(O, ' 
WRITELN(O,' Seg # Name 

' Laen Slot Intrf Typ 
WRITELN(O, ' 


END; 


PROCEDURE MAP; 
VAR I: INTEGER; J: SEGRANGE; 


PROCEDURE MAP]; 
BEGIN 
WITH SEGDIC DO 
BEGIN 
WRITE(O,' ',I:4,' ',SEGNAME[I]J); 
CASE SEGKIND[I] OF 


LINKED : WRITE(O, ' 
HOSTSEG : WRITE(O, ' 
SEGPROC : WRITE(O, ' 
UNITSEG : WRITE(O, ' 
SEPRTSEG : WRITE(O, ' 
UNLINKED_INTRINS : WRITE(O, ' 
LINKED_INTRINS : WRITE(O,' 
DATASEG : WRITE(O, ' 


END; (* OF CASE *) 


--- Code Map fuer ',FCFNAME,' —-—-—'); 
Segment Art 


Adr 
Version'); 


r); 


gelinkt & ausfuehrbar WE 
ungelinktes Hauptprogramnm'); 
Segmentprozedur '); 
Regulaere UNIT 2 
Seperate Prozedur '); 
ungelinkte INTRINSIC Unit’ ); 
Gelinkte INTRINSIC Unit '); 
Datensegnment 2); 


WRITE(O,' ',DISKINFO[I].CODEADDR:4,DISKINFO[I].CODELENG:6); 


END; (* WITH SEGDIC *) 
END; (* MAPI *) 
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PROCEDURE MAP2; 


BEG 


IN 


WITH SEGDIC DO 


EN 


BEGIN 
FOR 
B 


BEGIN 


WRITE(O,SEGINFO[I].SEGNO:5,TEXTADDR[I]:5, ' 


CASE SEGINFO[I].MACHTYPE OF 


UNDEF :WRITE(0O, ' 
PCODEMOST :WRITE(O, ' 
PCODELEAST :WRITE(O, ' 
PDP11 :WRITE(O, ' 
M8080 :WRITE(O, ' 
Z80 :WRITE(O, ' 
GA44O :WRITE(O, ' 
M6502 :WRITE(O, ' 
M6800 :WRITE(O, ' 
T1990 :WRITE(O, ' 


END; (* OF CASE *) 


Undef. »; 
P-Code (+)'); 
P-Code (-)' 
PDPI1 ' 
8080 ' 
280 ! 
GA44O '); 
6502 ' 
6800 ! 
TI9IO ' 


CASE SEGINFO[I].MAJORREYISION OF 


NONAPPLE : WRITE(O, ' 
ONEZERO : WRITE(O, ' 
ONEONE : WRITE(O,' 
END; (* OF CASE *) 
END; (* WITH SEGDIC *) 
D; (* MAP2 *) 


I:= 9 TO MAXSLOT DO 
EGIN 

MAP]; 

MAP2; 

WRITELN(O)ys 


END; 


WRITE(O, "Erforderliche intrinsische Segmente: '); 


SEGNOTREQ: =TRUE; 
WITH SEGDIC DO 
BEGIN 


END; 


FOR J := 0 TO MAXSEG DO 
BEGIN 
IF J IN INTSEGSET THEN 
BEGIN 
WRITE(0,J:3); 
SEGNOFREQ:=FALSE; 
END; 
END; 


R.A.'); 
1.0'); 
1.1'); 


IF SEGNOTREQ THEN WRITE(O,' Keins'); 
END; 
WRITELN(O); 


BEGIN 
REPEAT 


END, 


INIT; 
MAP; 


WRITEC'—=> Weiteres Code File ? '); 
UNTIL NOT YESNO; 
CLOSE(0,LOCK) ; 


'); 
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Chris Wilson 


Patch für nicht ein- 
gelegte Boot-Disk 


Im allgemeinen ist das Problem des Disk-Swappings unter APPLE-Pascal 
1.1 recht gut gelöst. Eine unglückliche Ausnahme ist der Fall, wenn ein Pro- 
gramm beendet wird und zu diesem Zeitpunkt die Boot-Disk nicht eingelegt 
ist. In diesem Fall gibt das Pascal einen entsprechenden Hinweis aus und for- 
dert dazu auf, die Boot-Disk wieder einzulegen. Danach startet es das Boot- 
Laufwerk alle fünf Sekunden, um nachzusehen, ob die Diskette inzwischen 
eingelegt wurde. Diese Warteschleife ist äußerst lästig. 

Das kleine Programm in diesem Kapitel modifiziert das Pascal derge- 
stalt, daß nach der Meldung, die Boot-Disk einzulegen, die folgende Nach- 
richt auf dem Bildschirm erscheint: 


TYPE «SPACE» TO CONTINUE 


Danach wartet das Programm geduldig darauf, daß man die Boot-Disk ein- 
legt. Wenn Sie die Leertaste drücken, ohne daß die Boot-Disk eingelegt ist, 
wird die obige Meldung einfach wiederholt. Das geschieht solange, bis man 
die richtige Diskette eingelegt hat. 
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PROGRAM PATCHOS; 


(* Block Nr. 15 von SYSTEM.PASCAL wird 
so gepatcht, dass die Warteschleife, 
die das Bootlaufwerk abfragt, durch 
einen Aufruf der SPACE WAIT Prozedur 
ersetzt wird. 


Alter Code Neuer Code 


LOD (B6) 02 03 


STL (CC) ol CXP (CD) 00 16 


* 
! 
! 
SLDOl (E8) ! SLDC1 (01) 
SLDL1 (D8) I SLDCO (00) 
LEQI (C8) ! SLDCO (00) 
FJP (Al) 07 I CBP (C2) 28 
SLDO1 (E8) ! STL (CC) 01 
SLDC1 (01) ! 
ADI (82) ! 
SRO (AB) Ol ! 
UJP (B9) F6 ! 
*) 
TYPE 
HEXSTRING = STRING[2]; 
VAR 
F: FILE; 


B: PACKED ARRAY [0..40,0..511] OF 0..255; 
CH: CHAR; 
I: INTEGER; 


FUNCTION CONV(HEX: CHAR): INTEGER; 


BEGIN 
IF HEX IN ['A'..'F'] THEN 
CONV := 10+(ORD(HEX)-ORD('A')) 
ELSE IF HEX IN ['0'..'9'] THEN 
CONV := ORD(HEX)-ORD('0') 
ELSE 
CONV := 0; 
END; 


PROCEDURE FIX(BLK, BYTE: INTEGER; OLD, NEW: HEXSTRING); 
VAR 


IOLD, 
INEW: INTEGER; 
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IOLD := CONV(OLD[2])+(CONV(OLD[1])*16); 
INEW := CONV(NEW[2])+(CONV(NEW[1])*16); 
IF B[BLK,BYTE] = IOLD THEN 

B[BLK,BYTE] := INEW 
ELSE 

BEGIN 


WRITELN(C'Byte bei Block ',BLK,' Offset ',BYTE); 
WRITELNC'ist ',B[BLK,BYTE],', sollte sein ',IOLD); 
EXIT(PATCHOS); 

END; 


BEGIN 
PAGE(OUTPUT); 
WRITELN( '"Patchos (15-Feb-81)'); 
WRITELN; 
WRITELN( "Copyright (c) 1982 Chris Wilson'); 
WRITELN; 
WRITELN('Legen Sie eine Diskette mit dem Original SYSTEM.PASCAL'); 
WRITELNC'in Laufwerk 1 ein'); 
WRITE( 'Weiter mit Leertaste'); 
READ(KEYBOARD,CH); 
WRITELN; 
RESET(F, '#4:SYSTEM.PASCAL'); 
I := BLOCKREAD(F,B,41); 
CLOSE(F); 
FIX(15,369,'C7','B6'); 
FIX(15,370,'A0','02'); 
FIX(15,371,'0F','03'); 
FIX(15,372,'CC','CD'); 
FIX(15,373,'01','00'); 
FIX(15,374,'E8','16'); 
FIX(15,375,'D8','01'); 
FIX(15,376,'C8','00'); 
FIX(15,377,'A1','00'); 
FIX(15,378,'07','C2'); 
FIX(15,379,'E8','28'); 
FIX(15,380,'01','CC'); 
FIX(15,381,'82','01'); 
FIX(15,382,'AB','D7'); 
FIX(15,383,'01','D7'); 
FIX(15,384,'B9','D7'); 
FIX(15,385,'F6','D7'); 
REPEAT 
PAGE(OUTPUT); 
WRITELN('Legen Sie die zu modifizierende Diskette in Laufwerk 1 ein'); 
WRITE('Weiter mit Leertaste'); 
READ(KEYBOARD,CH); 
WRITELN; 
RESET(F, '#4:SYSTEM. PASCAL'); 
I := BLOCKWRITE(F,B,41); 
CLOSE(F,LOCK); 
WRITE( 'Noch eine Diskette aendern (j/n): '); 
READ(CH) ; 
WRITELN 
UNTIL (CH <> 'N') AND (CH <> 'n’); 
END. 
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Dana Schwartz 


HUFFIN 


Dateitransfer: Pascal nach DOS 


Nachdem man erkannt hatte, daß die RWTS-Routinen (Read/Write Track 
and Sector) des DOS 3.3 einen Zugriff auf alle Blocks einer Pascal-Diskette 
gestatten, wurde es zu einer relativ einfachen Aufgabe, die Kenntnisse über 
die Struktur der Pascal-Directory und -Textdateien anzuwenden, um diese 
auf der Diskette zu finden und in eine DOS-Textdatei zu konvertieren. Das 
vorliegende MUFFIN-ähnliche Programm HUFFIN, das in einer problemo- 
rientierten Sprache geschrieben wurde, ist die Implementierung dieses Kon- 
zeptes. 

Zeile 100 setzt HIMEM: um 2100 Bytes herab, um Platz für die RWTS- 
Routine und die Puffer für die Pascal-Blocks zu reservieren. In den Zeilen 
120 bis 190 werden diese RWTS-Routine und die zugehörigen IOB und DCT 
mit POKE-Befehlen in den Hauptspeicher geschrieben. Diese Datenstruktu- 
ren sind im DOS 3.3-Handbuch auf den Seiten 87 bis 89 beschrieben. 


Der Bildschirmaufbau wird in den Zeilen 200 bis 230 vorgenommen; dar- 
auf folgt eine Frage an den Benutzer nach den Slots und Laufwerken von 
DOS- und Pascal-Diskette. Danach wird der Benutzer aufgefordert, die Dis- 
ketten einzulegen. Beachten Sie, daß bei Verwendung eines Laufwerkes ein 
mehrmaliges Wechseln der Disketten notwendig ist und daß aus diesem 
Grunde die Pascal-Quelldiskette schreibgeschützt werden sollte, um even- 
tuelle Fehler zu vermeiden (das gilt ganz besonders bei den ersten Konvertier- 
versuchen). 

In Zeile 290 wird der Benutzer nach dem Namen der Pascal-Textdatei ge- 
fragt, die kopiert werden soll. Dabei ist kein Diskettenname anzugeben (Bei- 
spiel: DJS.TEXT). Gibt man keinen Namen an, so wird ein abgekürztes 
Directory-Listing der Pascal-Diskette ausgegeben (GOSUB 5000), und der 
Benutzer wird erneut nach einem Namen gefragt. Wird ein Name eingege- 
ben, so wird das Directory der Pascal-Diskette abgesucht (GOSUB 1000), 
und wenn der Name gefunden wird, Dateityp und -größe geprüft. In den Zei- 
len 310 bis 320 werden daraufhin die Puffer und die DOS-Textdatei initiali- 
siert. 
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Die Konversion findet in den Zeilen 330 bis 340 statt, wobei Benutzer ei- 
nes Laufwerkes nötigenfalls darauf aufmerksam gemacht werden, die Dis- 
kette zu wechseln. Die Textzeichen werden einfach zu einem Ausgabestring 
(A$) zusammengekettet, bis ein CR (ASCII-Wert 13) auftritt. Dann wird das 
so aufgebaute String in die DOS-Datei geschrieben. Kleinbuchstaben werden 
nicht in Großbuchstaben umgewandelt. Für die Zeichen DLE (ASCII-Wert 
16) und NULL (ASCII-Wert 0) ist eine Sonderbehandlung erforderlich (für 
deren Verwendung vgl. Beschreibung des Textdatei-Formats auf S.266 des 
Pascal Operating System Manuals). Um den Benutzer zu unterhalten, wäh- 
rend das APPLESOFT die Strings und den Speicher bearbeitet, wird auf 
dem Monitor ein Textfenster gezeigt, das es gestattet, die Pascal-Zeilen zu le- 
sen, die auf die DOS-Diskette geschrieben werden. 

In den Zeilen 450 bis 470 wird der Durchlauf beendet, indem die DOS- 
Datei geschlossen und der HIMEM:-Wert wiederhergestellt wird. 

Die Unterroutine in Zeile 1000 liest das Pascal-Directory in den Haupt- 
speicher ein und sucht nach dem angegebenen Dateinamen (N$). Die 
Anfangs- und Endblocks (Top und Bottom) werden in den Variablen TP 
und BT gespeichert, der Dateityp in TY. Wurde die Datei nicht gefunden, so 
wird TY der Wert -1 zugewiesen. Die Directory-Struktur wurde von APPLE 
auf S.9 des Washington APPLE Pie vom Dezember 1980 veröffentlicht. 

Das bei Zeile 2000 beginnende Unterprogramm liest zwei Pascal-Blöcke 
in den Hauptspeicher (BK und BK + 1). Die Unterroutine bei 3000 wird be- 
nutzt, um das zu jedem Block (BL) gehörende Spur/Sektor-Paar TR und 
S1/S2 zuzuordnen. (Beachten Sie, daß jeder Block aus zwei Sektoren einer 
Spur besteht.) 

Die bei 4000 liegende Routine ist der BASIC-Zugriff auf die zuvor mit 
POKE in den Speicher geschriebene RWTS-Routine. Die 256 Bytes von Spur 
(TR) und Sektor (SE) werden in den Puffer geschrieben, dessen höherwerti- 
ger Adreßteil den Wert BF hat. Das Lo-Byte der Adresse wurde vorher ge- 
speichert und ändert sich während der Ausführung nicht. 

Das Unterprogramm bei 5000 liest das Pascal-Directory und gibt die Da- 
teinamen auf dem Bildschirm aus. Darauf folgt bei 9000 eine allgemeine 
Fehlerbehandlungsroutine. Sie versucht, die Ausgabedatei zu schließen 
(CLOSE), falls sie vorhanden ist. Dadurch wird es möglich, durch CTRL-C 
einen partiellen Dateitransfer zu bewirken. 
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10 REM 


HUFFIN 
PASCAL/DOS CONVERTER 


BY DANA J. SCHWARTZ 
WASHINGTON APPLE PI 
CALL -A.P.P.L.E. * OCT., 1981 


100 HI = PEEK (115) + PEEK (116) * 256 - 2100: HIMEM: HI 

110 ONERR GOTO 9000 

120 DEF FN MOD(X) = (X / 256 - INT (X / 256)) * 256 

130 RWTS = HI:ER = HI + 17:IOB = HI + 18:DCT = HI + 36:BUFF = HI + 40 

140 TK = IOB + 4:SC = IOB + 5:HB = IOB + 9:6$ = CHR$ (7):PA = O:DR = O 

150 POKE RWTS,169: POKE RWTS + 1, INT (IOB / 256): POKE RWTS + 2,160: POKE RWTS 
+ 3, FN MOD(IOB): POKE RWIS + 4,32: POKE RWIS + 5,217: POKE RWTS + 6,3: POKE RW 

TS + 7,176: POKE RWIS + 8,1: POKE RWTS + 9,96 

160 POKE RWTS + 10,173: POKE RWIS + 11, FN MOD(IOB + 13): POKE RWIS + 12, INT ( 
IOB + 13) / 256: POKE RWTS + 13,141: POKE RWTS + 14, FN MOD(ER): POKE RWIS + 15, 
INT (ER / 256): POKE RWTS + 16,96 

170 POKE IOB,1: POKE IOB + 3,0: POKE IOB + 6, FN MOD(DCT): POKE IOB + 7, INT (D 

CT / 256): POKE IOB + 8, FN MOD(BUFF) 

180 POKE IOB + 10,0: POKE IOB + 11,0: POKE IOB + 12,1: POKE IOB + 13,0: POKE IO 
B + 14,0: POKE IOB + 15,96: POKE IOB + 16,1: 

190 POKE DCT,O: POKE DCT + 1,1: POKE DCT + 2,239: POKE DCT + 3,216 

200 HOME : VTAB 2: HTAB 16: PRINT "HUFFIN": VTAB 5: PRINT " PASCAL TO DOS TEXT 
FILE CONVERSION" 

210 VTAB 7: HTAB 10: PRINT "BY DANA J. SCHWARTZ": HTAB 10: PRINT "WASHINGTON AP 
PLE PI": VTAB 10: INVERSE 

230 NORMAL : VTAB 11: POKE 34,10: POKE 35,22: ON DR > O GOTO 270 

240 ON I GOTO 250: PRINT "SOURCE DISK: '": HTAB 8: PRINT "SLOT: ";: GET I$: PRIN 

T I$:SS = VAL (I$): HTAB 8: PRINT "DRIVE: ";: GET I$: PRINT I$:SD = VAL (I$) 
245 PRINT : PRINT "TARGET DISK: ": HTAB 8: PRINT "SLOT: ";: GET I$: PRINT I$:TS 
= VAL (I$): HTAB 8: PRINT "DRIVE: ";: GET I$: PRINT I$:TD = VAL (I$) 

250 ON SS < 1 OR SS > 7 GOTO 240: ON TS < 1 OR TS > 7 GOTO 240: ON SD < 1 OR SD 
> 2 GOTO 240: ON TD < 1 OR TD > 2 GOTO 240 

260 SS = SS * 16: IF SS = TS * 16 AND SD = TD THEN DR = 1 

270 POKE IOB + 1,55: POKE IOB + 2,SD: IF DR = 1 THEN PRINT CHR$ (7): PRINT "I 
NSERT WRITE PROTECTED PASCAL DISK": GOTO 290 

280 ON J GOTO 300: PRINT : PRINT "WRITE PROTECT PASCAL SOURCE DISK AND INSER 
T IN SOURCE DRIVE": PRINT "INSERT DOS 3.3 TARGET DISK IN TARGET DR" 

299 ON J GOTO 300: PRINT : PRINT "(HIT [C/R] FOR DIRECTORY)": PRINT "FILE NAME: 
".. INPUT N$: IF NOT LEN (N$) THEN GOSUB 5000: PRINT "FILENAME: ";:J = 1: IN 

PUT NS: ON N$ = "" GOTO 470: GOTO 200 

300 GOSUB 1000: IF TY< >» 30R BT -TP < 4 THEN PRINT : INVERSE PRINT G$"FI 
LE EMPTY, NOT TEXT OR NOT FOUND": NORMAL :J = O: GOTO 290 

310 HOME :Bl = INT (BUFF / 256):B2 = Bl + 1:B3 = B2 + 1:B4 = B3 + 1:BK = TP + 
2: GOSUB 2000 

320 A$ = "": PRINT CHRS (4)"OPEN"NS",S"TS",D"TD:D$ = CHR$ (4): PRINT D$"MONO" 
330 PRINT DS"WRITE"NS 

340 FOR I = BUFF TO BUFF + 1023 

350C= PEEK (I): IFC > 16 THEN A$ = A$ + CHR$ (C): GOTO 410 

360 IF C = 13 THEN PRINT A$:A$ = '"":Y = FRE (0): GOTO 410 

370 ON C< > 16 GOTO 400 

380 I = I + 1:SP = PEEK (I): ON SP < 33 GOTO 410 
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390 FOR S = 1 TO SP - 32:A$ = A$ + " ": NEXT S: GOTO 410 

400 IF C = O0 THEN I-= BUFF + 1023 

410 NEXT I 

420 BK = BK + 2: ON BK = BT GOTO 450 

430 IF DR = 1 THEN PRINT D$"PR#0": HOME PRINT CHR$ (7)'"INSERT PASCAL DISK A 
ND HIT RETURN": GET I$: PRINT : HOME 

440 GOSUB 2000: GOTO 330 

450 TEXT HOME 

460 IF D$ = CHR$ (4) THEN PRINT D$"CLOSE": PRINT D$'"'NOMONO" 

465 HOME : VTAB 4: PRINT "ANOTHER FILE ? ";: GET I$:I = 1: ON I$ = "Y"' GOTO 200 
470 HIMEM: HI + 2100: END : REM 


1000 REM 
*+* FIND PASCAL FILE *** 


1010 BF = INT (BUFF / 256):TR = O: FOR SE = 11 TO 4 STEP - 1: GOSUB 4000:BF = 
BF + 1: NEXT SE 

1020 NU = PEEK (BUFF + 16):PT = BUFF + 32:LN = LEN (N$) 

1030 ON PEEK (PT) < > LN GOTO 1110 

1040 FOR J = 1 TO LN 

1050 ON PEEK (PT + J) < > ASC ( MID$ (N$,J,1)) GOTO 1110 


1060 NEXT J 

1070 TP = PEEK (PT - 6) + PEEK (PT - 5) * 256 
1080 BT = PEEK (PT - 4) + PEEK (PT - 3) * 256 
1090 TY = PEEK (PT - 2) 

1100 RETURN 

1110 PT = PT + 26:NU = NU - 1: ON NU > 0 GOTO 1030 
1120 TY = - 1: RETURN 

2000 REM 


x#* READ 2 PASCAL BLOCKS *** 


2010 BL = BK: GOSUB 3000 

2020 BF = B1l:SE = Sl: GOSUB 4000 

2030 BF = B2:SE = S2: GOSUB 4000 

2040 BL = BK + 1: GOSUB. 3000 

2050 BF = B3:SE = Sl: GOSUB 4000 

2060 BF = B4:SE = S2: GOSUB 4000 

2070 IF DR = 1 THEN PRINT CHR$ (7)"INSERT DOS DISK AND HIT RETURN ": GET I$: 
PRINT : HOME 

2080 RETURN 

3000 REM 


xt BLK -> TR/SE **% 


3010 TR INT (BL / 8):TMP = (BL / 8 - TR) * 8 
3020 S2 = 2 * (7 - MP):Sl =S2 + 1 

3030 IF NOT TMP THEN SI = 0 

3040 IF TMP = 7 THEN S2 = 15 

3050 RETURN 

4000 REM 


*#%* CALL RWTS *** 


4010 POKE TK,TR: POKE SC,SE: POKE HB,BF: POKE ER,O: CALL RWTS 

4020 IF NOT PEEK (ER) THEN RETURN 

4030 IF DS = CHR$S (4) THEN PRINT D$"PR#0": PRINT D$"NOMONO" 

4040 TEXT HOME : PRINT G$'RWTS DISK ERROR "; PEEK (ER): POP POP GOTO 9020 
5000 REM 
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*x* PASCAL DIRECTORY *** 


5S01l0O TEXT : HOME :BF = INT (BUFF / 256):TR = O0: FOR SE = 11 TO 4 STEP - 1: ©0 

SUB 4000:BF = BF + 1: NET SE 

5020 V$ = "":NL = BUFF + 6: FOR I = 1 TO PEEK (NL):V$ = V$ + CHR$ ( PEEK (NL + 
I)): NEXT I: PRINT V$":":L$ = "":Y= FRE (0) 

5030 LN = 1:NF = PEEK (BUFF + 16): IF NOT NF THEN PRINT G$;: FLASH : PRINT "[ 

NO FILES]": NORMAL PRINT : PRINT "HIT [C/R] TO CONTINUE ": GET I$: PRINT : HOM 

E : RETURN 

5040 FOR I 

60 

5050 FOR J = 1 TO NL:L$ 
"mY = FRE (O):LN = LN 

5060 IF LN > 20 OR I = NF THEN PRINT PRINT "HIT [C/R] TO CONTINUE ": GET I$: 
PRINT : PRINT VS": ";:[N = 1 

50790 NEXT I: RETURN 

9000 REM 


1 TO NF:ST = BUFF + I * 26 + 6:NL = PEEK (ST): ON NOT NL GOTO 50 


L$ + CHR$ ( PEEK (ST + J)): NEXT J: PRINT " "L$:L$ = 
1 


+ U 


ERROR HANDLER 


9010 IF DS = CHR$ (4) THEN PRINT D$'"PR#O": PRINT D$"NOMONO" 

9020 TEXT : PRINT PRINT GS$"ERROR "; PEEK (222);" AT LINE "; PEEK (218) + PE 
EK (219) * 256 

9030 POKE 216,0: IF (DR = 2 OR PA = O0) AND D$ = CHR$ (4) THEN PRINT D$"CLOSE" 
9040 GOTO 470 

9999 REM 


MINOR MODS BY VAL J GOLDING 
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Dr. Wol/Washington Apple Pi 


PUFFIN 


Dateitransfer: DOS nach Pascal 


Vor rund einem Jahr fragten mich Clubkameraden, die gerade angefangen 
hatten, Pascal zu lernen, ob es eine Möglichkeit gäbe, Dateien zwischen DOS 
und Pascal hin- und her zu kopieren. Da ich wußte, daß beide Systeme mit 
16 Sektoren arbeiten, konnte ich die Frage ohne weiteres mit ja beantworten. 
Eines Tages machte ich mich daran, es zu beweisen. | 

Da ich ein unverbesserlicher, völlig einseitiger Pascal-Programmierer 
bin, erwies sich das Projekt für mich einerseits als etwas schwieriger, ande- 
rerseits aber auch als etwas leichter, als ich zunächst angenommen hatte. 
Schwieriger, weil ich keine Ahnung vom DOS hatte und zunächst lernen 
mußte, wie DOS-Dateien verwaltet werden, und leichter, weil ich keine Ver- 
anlassung hatte (und auch heute noch nicht habe), Pascal-Dateien nach DOS 
zu kopieren und diesen Teil des Projektes daher einfach weggelassen habe. 

Für jemanden, der nicht so ‘‘Pascal-borniert‘‘ ist, bleibt es natürlich 
nutzlos, nur den halben Satz von Programmen, die die Kommunikation zwi- 
schen zwei Betriebssystemen ermöglichen, zu haben. Zum Glück hat mich 
Dana Schwartz, einer meiner Clubkameraden, gerettet, indem er die andere 
Hälfte schrieb (s. das Kapitel HUFFIN). 


Wozu braucht man PUFFIN? 


Programme, mit denen man Daten zwischen verschiedenen Betriebssystemen 
hin- und herkopieren kann, sind natürlich schon deswegen interessant, weil 
man aus ihnen einiges über die Unterschiede zwischen den Betriebssystemen 
lernen kann. Darüberhinaus erweitern solche Programme auch die Anwen- 
dungsmöglichkeiten beider Systeme. Der Programmierer kann sich dann das 
für seine Zwecke am besten passende Betriebssystem aussuchen. 

Aus meiner Sicht könnten ganz besonders die BASIC-Programmierer 
von diesen Konvertierprogrammen profitieren (wobei es mir schwer fällt, 
vorzustellen, was einen überhaupt noch veranlaßt, in BASIC zu program- 
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mieren). Mit diesen Programmen können Sie eine DOS-Datei, das ein 
BASIC-Programm in Textform enthält (zum LIST-Befehl vgl. S.76 des 
DOS-Handbuches) in eine Pascal-Datei konvertieren, das Programm mit 
dem Pascal-Editor lesen und verändern, es dann ins BASIC zurückkopieren 
und mit EXEC ausführen. Natürlich könnten Sie das ganze Programm auch 
gleich mit dem Pascal-Editor schreiben. Auf jeden Fall können Sie die be- 
trächtlichen Möglichkeiten des Pascal-Editors zum Schreiben von BASIC- 
Programmen ausnutzen. 

Umgekehrt können Pascal-Programmierer unter DOS erzeugte HI-RES- 
Grafiken in das Pascal-Betriebssystem übertragen. Das gleiche gilt für ande- 
re DOS-Dateien. Allerdings muß auf der Pascal-Seite noch einige zusätzliche 
Arbeit getan werden, zum Beispiel die Konversion von Dateien mit wahlfrei- 
em Zugriff (Random Access Files) in Record-Strukturen, auf die dann 
Pascal-Programme zugreifen können. Da in Pascal die Wortgrenzen wichtig 
sind, kann das bedeuten, daß Sie in die Verlegenheit kommen könnten, für 
jede konvertierte Datei ein entsprechendes Programm schreiben zu müssen, 
es sei denn, sie würden ein äußerst flexibles Programm für diese zweite Kon- 
versionsstufe entwickeln. Die Notwendigkeit, die Wortgrenzen zu beachten 
und die von DOS einzeln benutzbaren Bytes zu zerlegen, ist in PUFFIN sehr 
anschaulich dargestellt. 


Was macht PUFFIN? 


PUFFIN ist ein Programm zum Transfer beliebiger DOS-Dateien in das 
Pascal-Betriebssystem. Es gibt die Möglichkeit, den Typ der Pascal-Datei, 
die erzeugt werden soll, unabhängig vom Typ der gewählten DOS-Datei frei 
zu bestimmen. Man kann zum Beispiel eine in Tokenform gespeicherte 
BASIC-Datei in eine Pascal-Datei transferieren, obwohl das Resultat augen- 
scheinlich sinnlos ist. Sinnvollere Möglichkeiten sind bereits weiter oben im 


Text genannt worden. Die generierbaren Pascal-Dateitypen sind Text, Foto 
und Data. 


PUFFIN bietet dem Benutzer ein aus vier Befehlen bestehendes Menü an: 
C(atalog, D(isplay, T(ransfer und Q(uit. 

Catalog dient dazu, ein DOS-Directory zu lesen und auszugeben. Gibt 
man die Spezifikation eines Diskettenlaufwerkes nach den Pascal-Regeln ein 
(S.171 im Language Manual und S.276 im Operating System Manual), so 
sucht die Prozedur auf der angegebenen Diskette nach den DOS-Directory- 
Sektoren, baut aus ihnen die Directory-Informartionen auf und gibt das Er- 
gebnis dieser Arbeit auf dem Monitor aus. Die dort angezeigten Informatio- 
nen geben den Dateinamen an, den Dateityp, die Sektorlänge, die Adresse 
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der ersten Spur/Sektor-Liste sowie, ob die entsprechende Datei schreibge- 
schützt ist. 

Display dient einfach dazu, die mit Catalog gesammelten Directory- 
Informationen noch einmal auf dem Bildschirm auszugeben. Sie werden als 
aktuelles Directory bezeichnet. 

Transfer ist das Arbeitspferd des ganzen Programms. Diese Prozedur er- 
mittelt den Namen der zu konvertierenden DOS-Datei, der Pascal-Zieldatei 
und den Typ der Pascal-Datei. Der Transfer findet nur statt, wenn sich das 
DOS-File im aktuellen Directory befindet und ein zulässiger Pascal- 
Dateiname angegeben wird. 

Maßnahmen zur Vermeidung von E/A-Fehlern sind soweit ausge- 
schöpft, daß etwaiges Durcheinander, sei es bei Tastatur-Fehlern oder 
Disketten-E/A, sofort eingekreist wird. Das Programm gleitet Ihnen nicht 
aus den Händen, sondern läßt sich über Aufruf des Hauptmenüs zu jeder 
Zeit leicht kontrollieren. 


Globale Deklarationen und das Hauptprogramm 


Die globalen Deklarationen in PUFFIN definieren die Pascal- 
Repräsentation eines DOS-Directories und bilden damit die Grundlage der 
drei Befehle des Programms. 

Beachten Sie, daß alle Strings durch Begriffe mit vorher definierten Kon- 
stanten definiert werden, die ihre Länge bestimmen, z.B.: 


didleng = 30; 
did = string[didleng]; 


Beachten Sie bitte auch, daß alle Arrays unter Verwendung von Konstanten 
deklariert sind, die ihre Dimensionierung bestimmen. Durch Typdeklaratio- 
nen wird ihr Grundtyp bestimmt, und durch Untermengentypen wird der In- 
dexbereich des Arrays festgelegt. Hier ein Beispiel: 


TYPE 
blocksize = 512; 
blockrange = 0..blocksize; 
blockbuffer = 
PACKED ARRAY [1..blocksize] OF byte; 


VAR 


block:blockbuffer; 
blockindex:blockrange; 
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Diese Deklarationen definieren, was ein ‘“blockbuffer‘‘ ist und welchen Typ 
der Zeiger ‘“blockindex‘‘ in die Variable ‘“block“‘ hat. 

Durch Verwendung von Konstanten erhöht sich die Lesbarkeit des Pro- 
gramms. Gleichzeitig werden Änderungen erleichtert. Die Verwendung von 
Untermengen erhöht die Programmsicherheit, da eine Überschreitung der 
Bereichsgrenzen entweder zu Kompilations- oder Laufzeitfehlern führt - 
Pascal erlaubt keine Bereichsüberschreitungen. In komplizierteren Program- 
men ist das ein schwerwiegendes Plus, aber auch hier lohnt sich disziplinier- 
tes Programmieren. 

Die Deklaration des Datentyps ‘‘dosdirentry‘‘ wird den DOS-Freunden 
wahrscheinlich bekannt vorkommen. Beachten Sie, daß es zwei unterschied- 
liche Varianten von Directory-Einträgen gibt, die durch die Komponente 
“dfkind‘‘ unterschieden werden. Die eine Variante, bei der dfkind = volin- 
fo ist, belegt nur den nullten Directory-Eintrag und enthält die Nummer der 
Unit, von der das Directory gelesen wurde, sowie die Anzahl der Directory- 
Einträge. Die andere Variante wird zur Beschreibung der eigentlichen 
Directory-Einträge verwendet und enthält natürlich auch die Komponente 
‘““dfkind‘‘, um anzugeben, um welchen DOS-Dateityp es sich jeweils han- 
delt. 

Das Hauptprogramm beginnt mit einer Initialisierung des Directories. 
Der nullte Eintrag wird in seiner ‘“‘dfkind‘‘-Komponente als ‘“‘volinfo‘‘ de- 
klariert, die Anzahl der Einträge wie auch die Gerätenummer für das DOS- 
Directory wird auf 0 gesetzt. Danach durchläuft das Programm eine Schlei- 
fe, in der die Benutzeroptionen auf dem Monitor ausgegeben, gelesen und 
die gewünschten Befehle ausgeführt werden. Diese Schleife wird nur verlas- 
sen, wenn der Benutzer die Option ‘‘Quit‘‘ aufruft. 


Catalog 


Die Struktur eines DOS-Catalogs besteht aus einer linearen, verketteten Li- 
ste, in der jedes Element einen Diskettensektor belegt und aus zwei Kompo- 
nenten besteht, nämlich einem Zeiger auf das nächste Element und einer Li- 
ste von bis zu sieben Directory-Einträgen. In Pascal kann dieser Zusammen- 
hang wie folgt beschrieben werden: 


dosnode =RECORD 
nextnode:link; 
entries: ARRAY[1..7] OF dosdirentry; 
END; 


wobei die Typen “link‘‘ und “‘dosdirentry‘‘ gültig in PUFFIN definiert wor- 
den sind. 
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Wenn der Aufbau eines DOS-Directories dieser Deklaration Byte für By- 
te entsprechen würde, so wäre es eine geradezu triviale Aufgabe, eine solche 
Liste abzuarbeiten, indem man die Directory-Sektoren sequentiell liest und 
nacheinander auf dem Bildschirm ausgibt. Unglücklicherweise ist das nicht 
der Fall, und es entsteht das zusätzliche Problem, daß man die in einem 
Directory-Sektor enthaltenen Informationen umformatieren muß. Obwohl 
das nicht schwierig ist, ist diese Aufgabe lästig, weil einzelne Bytes verscho- 
ben werden müssen. Abgesehen davon ist die Grundidee, eine verkettete Li- 
ste abzuarbeiten, immer noch das Kernproblem des Algorithmus. 

Wie arbeiten wir die Liste dann ab und lesen das Directory? Nun, dazu 
brauchen wir nur zu wissen, wo die Liste beginnt, wann der letzte Sektor er- 
reicht ist, und ob die gefundenen Einträge gültig oder gelöscht sind. Folgen 
wir den Angaben des DOS-Handbuches, so können wir davon ausgehen, daß 
ein Directory in Spur 17, Sektor 15 (dezimal) beginnt und daß der letzte Sek- 
tor erreicht ist, wenn der Zeiger für den nächsten Sektor auf Spur 0, Sektor 0 
weist. Außerdem gehen wir davon aus, daß ein Directory-Eintrag inaktiv 
(d.h. gelöscht) ist, wenn der Zeiger für die Spur/Sektor-Liste dieses Eintrags 
(erstes Byte des Eintrages, d.h. Byte Nr.0) entweder 0 oder 255 ($FF) ist. 

Catalog fragt zunächst nach der Nummer des Laufwerkes, in dem sich 
die zu lesende DOS-Diskette befindet. Gibt man Nr.O ein, so wird die Kon- 
trolle wieder an das Hauptmenü zurückgegeben; ansonsten wird eine Initiali- 
sierung der Variablen ‘“dirlink‘“ und ‘“entrycount‘‘ durchgeführt. Beachten 
Sie, daß ‘“‘dirlink‘‘ jetzt auf den ersten Sektor des DOS-Directories zeigt. 

Es werden nun zwei geschachtelte WHILE-Schleifen aufgerufen, die das 
Traversieren des DOS-Directories und eine Übertragung der gefundenen In- 
formation in die Variable ‘‘dosdir‘‘ übernehmen. 

Die äußere Schleife wird durch die Boole’sche Funktion ‘‘eodir‘‘ gesteu- 
ert, die prüft, ob noch ein weiterer Directory-Sektor gelesen werden muB. 
Die Funktion liefert nur dann den Wert FALSE, wenn die Variable 
“dirlink‘‘ auf Spur 0, Sektor 0 zeigt. 

Die erste Aufgabe innerhalb der Schleife ist es, den Sektor, auf den ‘‘dir- 
link‘‘ zeigt, in die Variable ‘“dirsector‘‘ einzulesen. Wenn dies fehlerfrei ge- 
schieht, initialisiert die Prozedur die Variable ‘‘sectorindex‘‘ und ruft die in- 
nere Schleife des Traversierungsteils auf. 

Die innere Schleife wird durch “‘eodirsector‘‘, ebenfalls eine Boole’sche 
Funktion, kontrolliert. Diese Funktion sucht nach dem aktuellen Directory- 
Sektor und liefert genau dann den Wert FALSE, wenn sie einen aktiven 
Directory-Eintrag findet. Die Suche beginnt bei Eintrag Nr. 
“sectorindex + 1°“ und wird solange fortgesetzt, bis entweder ein aktiver Ein- 
trag gefunden oder das Sektorende erreicht wird, je nachdem, welcher Fall 
zuerst eintritt. Das Sektorende ist erreicht, wenn alle sieben (= maxindex) 
potentiellen Einträge geprüft worden sind. Beachten Sie, daß durch die Ini- 
tialisierung der Variablen ‘‘sectorindex‘‘ sichergestellt wird, daß die Suche 
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bei Eintrag Nr.1 beginnt. 

Außer der Aktualisierung von ‘‘sectorindex‘‘ sorgt ““eodirsector‘‘ auch 
für eine Aktualisierung der Variablen “‘entrybase‘‘. Letztere ist ein Zeiger 
auf einen Index von ‘“‘dirsector‘‘, der das erste Informationsbyte eines 
Directory-Eintrages markiert. 

An dieser Stelle der inneren Schleife zeigt ““entrybase‘‘ auf den Anfang 
des nächsten in Pascal-Format zu konvertierenden Directory-Eintrages. Die 
Konversion erfolgt in drei Schritten. Als erstes wird die umzuformende In- 
formation (35 = entrylength Bytes) in die Variable ‘‘nextentry‘‘ kopiert, 
zweitens wird die Variable ‘‘entrycount‘‘ hochgezählt, und drittens wird die 
eigentliche Formatierung durch ‘“filldirentry‘‘ ausgeführt. Sorgfältige Pro- 
grammierer werden feststellen, daß sich die Variable “‘nextentry‘‘ und der 
Aufruf von ‘‘moveleft‘‘, durch den sie gefüllt wird, auch eliminieren lassen, 
wenn man “filldirentry‘‘ entsprechend ändert. 

Nachdem der aktuelle Sektor abgearbeitet ist, aktualisiert die Prozedur 
“dirlink‘‘ und prüft die Bedingung für die äußere Schleife. Beim Verlassen 
dieser Schleife wird schließlich der nullte Eintrag des Directories aktualisiert 
und “‘displaydir‘‘ aufgerufen, um den Inhalt des Directories auf dem Moni- 
tor auszugeben. 

Die ‘“filldirentry‘‘-Prozedur macht die eigentliche Schmutzarbeit beim 
Formatieren von DOS-Einträgen. Eine wichtige Aufgabe, die sie außerdem 
ausführt, ist die Konversion des DOS-Dateinamens in echte ASCII-Codes, 
indem sie das Hi-Bit der einzelnen Zeichen löscht. Zur Erhöhung der Pro- 
grammsicherheit verwandelt sie nicht ausgebbare Zeichen in Blanks. Danach 
sucht sie das äußerste linke Leerzeichen und setzt dementsprechend die Län- 
ge des Dateinamens. 


Displaydir 


Die “‘displaydir‘‘-Prozedur ist relativ simpel. Zuerst wird ein Vorlaufstück 
(Header) ausgegeben, und dann werden die Einträge untereinander auf den 
Bildschirm geschrieben. Es wurden die Voraussetzungen geschaffen, die 
Ausgabe zu stoppen, wenn der Bildschirm voll ist, und sogar die Möglich- 
keit, vorzeitig zum Hauptprogramm zurückzukehren. Eine Variable namens 
“‘cumsectors‘‘ enthält die Gesamtzahl der belegten Sektoren. 

Die Prozeduren ‘‘displayheader‘‘ und ‘displayentry‘‘ sind global zu 
“‘displaydir‘‘ deklariert, da sie auch von “'transfer‘‘ benutzt werden. 

Die Directory-Ausgabe macht vom 80-Zeichen-Format des Pascal Ge- 
brauch. Wer die Verwendung von Ctrl-A zur Seitenumschaltung vermeiden 
möchte, muß die Ausgabeprozeduren entsprechend modifizieren. 
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Transfer 


Der Schlüssel zu einer DOS-Datei besteht in ihrer Spur/Sektor-Liste; wie der 
DOS-Catalog ist sie eine lineare, verkettete Liste. Die Elemente bestehen aus 
zwei Komponenten, einem Zeiger auf das nächste Listenelement (die Weiter- 
führung der Spur/Sektor-Liste) und einer Liste von Zeigern, die auf die der 
Datei zugeordneten Diskettensektoren weisen, und zwar bis zu 122 
(= maxlink) Stück in einem Listenelement. Die folgende Deklaration trägt 
dieser Datenstruktur Rechnung: 


CONST 
maxlink = 122; 
TYPE 
byterange =0..255; 
link =PACKED RECORD 
tracknum:byterange; 
sectnum:Byterange; 
END; 
tslist = RECORD 
continuation:link; 
lit:PACKED ARRAY [1..maxlink] OF link; 
END; 
VAR 
currentlist:tslist; 


Die Struktur der Spur/Sektor-Liste legt die Idee zu einem Traversierungsal- 
gorithmus nahe, der dem in ‘‘Catalog‘‘ verwendeten ähnlich ist. Dazu gehö- 
ren ebenfalls entsprechende Tests, wann das Listenende erreicht ist usw. De- 
ren Funktionsweise haben wir ja bereits erläutert. 

Die ““transfer‘‘-Prozedur beginnt mit zwei Schleifen, in denen ermittelt 
wird, wie die zu übertragende Datei heißt und wohin sie geschrieben werden 
soll. Zunächst wird gefragt, wie das zu konvertierende DOS-File heißt. Wird 
kein Name angegeben, dann gibt die Prozedur die Kontrolle an das Haupt- 
programm zurück; ansonsten wird eine Schleife aufgerufen, die von der 
Boole’schen Funktion ‘“'searchdir‘‘ kontrolliert wird. Diese Funktion liefert 
dann und nur dann den Wert TRUE, wenn die angegebene Datei in dem ak- 
tuellen Directory steht. Wenn sie den Wert TRUE liefert, gibt sie auch 
gleichzeitig die Indexnummer des Eintrages. 

Zur besseren Übersicht gibt die Prozedur danach die Directory- 
Informationen der gewählten Datei aus und initialisiert die Variable “‘next- 
node‘‘ so, daß sie auf den ersten Sektor der Spur/Sektor-Liste der Datei 
weist. 
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An dieser Stelle ruft ““transfer‘‘ die “‘getfiletype‘‘-Prozedur auf, um her- 
auszubekommen, welchen Pascal-Dateityp das DOS-File bekommen soll. 
Hier gibt es drei Möglichkeiten: text, foto und data. 

Die ‘filetype‘‘-Prozedur liefert ein String namens ‘‘suffix‘‘ und eine Va- 
riable mit dem Namen ‘filetype‘‘, deren Wertebereich aus ‘“‘pasfilekinds‘‘ 
stammt. Das ‘‘suffix‘‘ wird an den Namen der Zieldatei angehängt, während 
““filetype‘‘ bestimmt, wie die Initialisierung und Formatierung der Pascal- 
Datei erfolgen soll. 

Danach ermittelt die Prozedur den Namen der Pascal-Zieldatei und er- 
reicht eine WHILE-Schleife, die von ‘‘openfile‘‘ kontrolliert wird. Diese 
Funktion versucht, die Zieldatei zu eröffnen, findet Fehler (wie z.B. unzuläs- 
sige Dateinamen) und verhindert, daß das Programm bei dem Versuch, eine 
Datei zu öffnen, abstürzt. Achten Sie darauf, als Zieldiskette eine andere als 
die DOS-Diskette anzugeben. 

Das Programm ist gegen Fehler der Art, die irreparable Dateiverluste 
nach sich ziehen können, nicht geschützt. Glauben Sie mir, ich habe meine 
Erfahrungen damit gemacht... 

Die Prozedur initialisiert nun ihre Schlüsselvariablen. Die Übertragung- 
spuffer “‘primpage‘‘ und ‘‘sparepage‘‘ werden mit Nullzeichen gefüllt und 
ihre entsprechenden Indexzeiger auf Null gesetzt. Das gleiche geschieht mit 
der Variablen “‘relblock‘‘, die die Anzahl der bisher geschriebenen Blöcke 
enthält. Wenn es sich bei der Datei um ein ‘‘fotofile‘‘ handelt, wird die Va- 
riable ‘‘fotoflag‘‘ auf TRUE gesetzt. Handelt es sich um eine Textdatei, wer- 
den zwei leere Blöcke als Textkopf der Datei auf die Diskette geschrieben. 
Diese beiden Blöcke werden vom Editor benutzt und für unsere Zwecke am 
besten mit Nullzeichen gefüllt. 

Die Puffer ‘‘“primpage‘‘ und ‘‘sparepage“‘ sind jeweils zwei Blöcke lang 
und erleichtern damit die Übertragung von Textdateien in das Pascal- 
Betriebssystem. Diese beiden Puffer können leicht den Bedingungen für den 
Transfer in andere Dateitypen angepaßt werden. . 

Zum Schluß erreicht der Programmfluß die geschachtelten WHILE- 
Schleifen, die die eigentliche Informationsübertragung ausführen. 

Die äußere Schleife wird durch die Boole’sche Funktion ‘“eolist‘‘ kon- 
trolliert, welche prüft, ob die Spur/Sektor-Liste fortgesetzt wird. Diese 
Funktion liefert genau dann den Wert TRUE, wenn ‘“'nextlink‘‘ auf Spur 0, 
Sektor 0 zeigt. Beachten Sie, daß durch die Initialisierung von “‘nextlist‘“ si- 
chergestellt wird, daß die Informationsübertragung an der richtigen Stelle 
beginnt. 

Innerhalb dieser Schleife wird als erstes dasjenige Listenelement ermit- 
telt, auf das “'nextlink‘‘ zeigt. Dies geschieht durch die Funktion ‘‘get 
node‘‘, die genau dann den Wert FALSE liefert, wenn beim Lesen ein E/A- 
Fehler auftritt; ansonsten liefert sie den Wert TRUE und speichert den gele- 
senen Sektor in der Variablen “‘currentnode‘‘. 
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Nachdem das aktuelle Listenelement gelesen wurde, initialisiert “trans- 
fer‘‘ die Variable “linkindex‘‘ und erreicht die von der Funktion ‘“‘“eonode“‘ 
kontrollierte innere WHILE-Schleife. Dieses Variablen-Funktions-Paar äh- 
nelt sehr dem Paar ‘‘sectorindex‘‘ und “‘eodirsector‘‘, das von der Catalog- 
Prozedur verwendet wird. ‘‘'Eonode‘“‘ liefert nur dann den Wert FALSE, 
wenn sie einen aktiven Dateisektor findet; ist das der Fall, so liefert sie auch 
die Sektoradresse in “'nextlink‘‘. Aktive Sektoren werden durch 
Spur/Sektor-Zeiger angezeigt, die nicht auf Spur 0, Sektor 0 weisen. 

Bei der Abarbeitung der inneren Schleife wird “readtrksec‘‘ aufgerufen, 
die den Dateisektor, auf den ‘“‘nextlink‘‘ zeigt, einliest und die Daten in 
“‘nextsector‘‘ speichert. Wenn alles klappt, wird die Information aus ‘“‘next- 
sector‘‘ jenach Format der durch ‘“‘filetype‘‘ bestimmten Datei in ‘‘primpa- 
ge‘‘ umgespeichert. Wenn ‘‘primpage‘‘ nach dem Verlassen von ‘‘stuff‘‘ voll 
ist, werden die darin gespeicherten Daten mit ““writeblocks‘‘ in die Zieldatei 
geschrieben. Die Kontrolle wird dann an die Abfrage für die innere Schleife 
übertragen. Beim Verlassen der inneren Schleife wird ““nextlink‘‘ aktualisiert 
und die Kontrolle an die äußere Schleifenabfrage übergeben. 


Writeblocks 


Die Übertragung des ‘“primpage‘‘-Puffers wird durch die isolierte Prozedur 
““writeblocks‘‘ erledigt. Bei ihrem Aufruf sollte die Variable “‘pagepntr‘“, 
die auf das zuletzt in ““primpage‘‘ kopierte Zeichen zeigt, durch “‘blocksize“‘ 
teilbar sein, und die Variable ‘“blockcount“‘ sollte die Anzahl der zu schrei- 
benden Blöcke enthalten. Wenn der Aufruf der internen Funktion ‘‘block- 
write‘‘ einen anderen Wert als die Anzahl der zu schreibenden Blöcke liefert, 
wird ““transfer‘‘ mit einem Aufruf von “'abortxfer‘‘ abgebrochen; andern- 
falls wird ‘“relblock“‘ aktualisiert und die Kontrolle an “transfer‘‘ zurückge- 
geben. 


Drei verschiedene Kopierarten 


Die Feinheiten der Dateikonversion von DOS nach Pascal sind in der Proze- 
dur ‘“‘stuff‘‘ enthalten. 

Die einfachste Konversionsart betrifft die Umformung einer DOS-Datei 
in ein Pascal-Datenfile. In diesem Fall wird die Datei Byte für Byte und Sek- 
tor für Sektor in das Pascal-File kopiert. 

Beim Datentransfer in ein Fotofile wird davon ausgegangen, daß die 
Quelldatei eine Binärdatei ist, so daß die ersten vier Bytes der Datei die Start- 
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adresse und die Dateilänge in Bytes angeben (wahrscheinlich die Startadresse 
einer der beiden HI-RES-Grafikseiten und die Länge eines HI-RES- 
Bildes, d.h. 8192 Bytes). Diese beiden Angaben sind jedoch nur für das DOS 
wichtig. Entsprechend wurde die Unterprozedur ‘‘stuffoto‘‘ so ausgelegt, 
daß sie die ersten vier Bytes des ersten Datensektors ignoriert, aber alle Fol- 
gesektoren im Verhältnis 1:1 kopiert. Das Signal, die ersten vier Bytes nicht 
zu beachten, wird durch die Variable ‘“fotoflag‘‘ gegeben. Beachten Sie, daß 
“stuffoto‘‘ als Eingabedatei nicht unbedingt ein HI-RES-Bild braucht, je- 
doch werden in jedem Fall die ersten vier Bytes weggelassen. 

Die Prozedur “'stuffoto‘‘ funktioniert bis auf die Behandlung des ersten 
Sektors wie folgt: Zuerst verschiebt sie den kompletten Inhalt von ‘‘sparepa- 
ge‘“‘ nach “‘primpage‘‘; da immer nur ein Sektor auf einmal gelesen wird, 
wird auch nie mehr als ein Sektor nach “‘primpage‘‘ kopiert. Danach ver- 
schiebt sie so viele Bytes des aktuellen Sektors ‘‘s‘‘ wie möglich nach ‘“‘prim- 
page‘‘. Wenn das ein kompletter Sektor ist, wird ““‘stuffoto‘‘ verlassen; ist es 
weniger, so wird der Differenzbetrag von ‘‘s‘“ nach ‘‘sparepage‘‘ kopiert, 
und wir verlassen dann “‘stuffoto‘‘ mit einer vollgeschriebenen ‘‘primpage‘“‘, 
die anschließend durch einen Aufruf von ‘“‘writeblocks‘‘ wieder gelöscht 
wird. 

Das Konvertieren in eine Textdatei ist etwas komplizierter. Man muß 
nämlich sicherstellen, daß die Zieldatei den Syntaxanforderungen von 
Pascal-Textdateien entspricht, wenn wir die Datei mit dem Pascal-Editor be- 
arbeiten wollen. Die Kompatibilität mit dem SYSTEM.EDITOR wird durch 
die Prozedur ‘‘stufftext‘“ sichergestellt. 

Eine mit dem Editor kompatible Pascal-Textdatei kann - von oben nach 
unten - wie folgt definiert werden: Eine Textdatei besteht aus zwei Kopf- 
blöcken zu je 512 Bytes, gefolgt von einer beliebigen Anzahl von Textseiten 
zu je 1024 Bytes. Jede Seite enthält eine Folge von Zeilen, und jede Zeile be- 
steht aus einer Reihe von ASCII-Zeichen der folgenden Form: 


(DLE Einrückung) (Zeichen) ... (Zeichen) (CR) 


wobei DLE und CR die ASCII-Werte 16 bzw. 13 haben. Die ““Einrückung‘‘ 
ist die Anzahl der führenden Leerzeichen einer Zeile plus 32, und “‘ Zeichen‘ 
bezeichnet ein beliebiges ausgebbares ASCII-Zeichen. Zeilen dürfen über die 
Seitengrenzen nicht hinausragen, und auf die letzte Zeile einer Seite folgen so 
viele Nullzeichen (CHR(0)), wie notwendig sind, um die 1024 Bytes einer Sei- 
te aufzufüllen. 

Beachten Sie, daß wegen dieser Bedingungen die - durchaus zu ertragen- 
de - Beschränkung einer Pascal-Zeile (nicht zu verwechseln mit einem um- 
gangssprachlichen, deutschen Satz) auf nur 1024 Zeichen gilt. 

Die ‘“stufftext‘‘-Prozedur transformiert ein DOS-File sektorweise in eine 
Pascal-Datei, wobei die Seiten- und Zeilengrenzen beachtet und alle gelese- 
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nen Zeichen in echte ASCII-Werte umgewandelt werden. 

Die Prozedur beginnt mit der Konversion in ASCII-Werte, darauf wer- 
den alle nicht sichtbaren Steuerzeichen in Nullzeichen umgewandelt, schließ- 
lich werden die Nullzeichen eliminiert. 

An dieser Stelle enthält der gelesene Sektor ‘‘s‘‘ ““lengindex‘‘ zulässige 
Zeichen, die in den Puffer ‘primpage‘‘ übertragen werden können. Wenn 
man immer davon ausgehen könnte, daß keine gelesene Zeile mehr als 256 
zulässige Zeichen enthält, dann könnte man ‘“‘s‘‘ direkt nach ‘“‘primpage“‘ 
kopieren. Da wir das aber hier nicht tun, übertragen wir zunächst ‘‘s‘‘ nach 
‘““‘sparepage‘‘, die uns die Handhabung von Eingabezeilen mit bis zu 1024 
Zeichen gestattet (was ja für Pascal das Maximum ist). 

Die Prozedur erreicht nun eine WHILE-Schleife, die ‘‘sparepage‘‘ nach 
aufeinanderfolgenden Zeilen absucht und diese in die “‘primpage‘‘ über- 
trägt. Zu diesem Zweck werden die Variablen ‘‘leadindex‘‘ und ‘“lagindex‘“‘ 
zusammen mit der Byte-orientierten Funktion ‘‘scan‘‘“ benutzt. ““lagindex“‘ 
weist auf das Ende der zuletzt übertragenen Zeile und wird zu Beginn auf 
Null gesetzt. Die “‘scan‘‘-Funktion dient in diesem Zusammenhang dazu, 
das nächste Carriage Return-Zeichen zu finden, wobei die Suche eine Stelle 
hinter “‘lagindex‘‘ begonnen wird. ““leadindex‘‘ wird dazu benutzt, die von 
“‘scan‘‘ gefundene Stelle zu bezeichnen. Damit ist die Differenz ‘‘leadindex“‘ 
- ““Jagindex‘‘ gleich der Anzahl der Zeichen einer Zeile, incl. des Carriage 
Return. 

Die WHILE-Schleife wird beendet, wenn alle Zeichen aus ‘‘sparepage‘“‘ 
abgesucht worden sind, oder wenn sicher ist, daß die nächste Zeile über die 
Seitengrenze hinausragen würde. Beim Verlassen dieser Schleife werden die 
Daten in ‘'sparepage‘‘ um den entsprechenden Betrag nach links verscho- 
ben, um beim erneuten Aufruf von ‘“'stufftext‘‘ einen korrekten Start zu ge- 
währleisten. 


Der Brückenschlag 


Die eigentliche Arbeit in diesem Programm wird durch eine Handvoll relativ 
maschinennaher Prozeduren und Funktionen erledigt. Die wichtigste von ih- 
nen ist “‘readtrksec‘‘, die die Brücke von DOS nach Pascal darstellt und in 
der die unterschiedlichen Methoden der beiden Betriebssysteme, auf Disket- 
ten zuzugreifen, deutlich werden. 


Das DOS behandelt natürlich Sektoren von 256 Bytes Länge als kleinste 
Diskettenspeichereinheit, und eine Diskette als eine Sammlung von jeweils 
16 Sektoren, innerhalb von 35 Spuren. Das Pascal-Betriebssystem dagegen 
greift auf Blöcke von jeweils 512 Bytes Länge zu und teilt eine Diskette in 
280 Blöcke ein. Beim Lesen eines DOS-Sektors von Pascal aus muß der ge- 
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samte Block, der den gewünschten Sektor enthält, gelesen und danach fest- 
gestellt werden, welche 256 Bytes daraus die richtigen sind. 


Der DOS-Pascal-Tango 


Haben Sie Ihr BASIC-Programm fertig? Ok, kopieren Sie es mit PUFFIN 
nach Pascal, übersetzen Sie es mit Ihrem Supercompiler (der natürlich in 
Pascal geschrieben ist) in 6502-Code und konvertieren Sie es dann mit Danas 
HUFFIN Programm wieder ins DOS-Format. Und ab geht die Post! 

Was sagen Sie? Sie haben solch einen Compiler nicht? 
Schade, hätte so schön sein können...! 
Blaise, ade!!! 
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(*$S+*) 


(*$V-*) 
PROGRAM puffin; 

CONST 

maxunit =12; (* Groesste Pascal Unitnumner *) 

maxdir =105; (* Groesstmoegliche Anzahl von DOS Directory Eintraegen *) 


maxlink =122; (* Hoechstzahl fuer Eintraege in Spur/Sektor Liste *) 

didleng =30; (* Groesste Laenge eines DOS Filenamens *) 

pidleng =23; (* Maximale Laenge von Pascal Filenamen *) 

sidleng = 5; (* Maximale Laenge von Pascal Filenamenssuffixen z.B. ".TEXT" *) 
sectsize =256; (* DOS Sektorgroesse *) 

blocksize=512; 

pagesize =1024; (* Textseitengroesse in Pascal *) 

maxbyte =255; 


dirtrack =17; (* Spurnummer, bei der das DOS Directory liegt *) 
firstdirsect=15; (* Erster Sektor eines WS Directories *) 


TYPE 

byterange =0..maxbyte; 
sectrange =0. .sectsize; 
dirrange =0..maxdir; 
linkrange =0..maxlink; 
unitrange =0..maxunit; 
blockrange=0..blocksize; 
pagerange =0..pagesize; 


sectbuffer =PACKED ARRAY[ byterange] OF byterange; 
blockbuffer=PACKED ARRAY[1..blocksize] OF byterange; 
pagebuffer =PACKED ARRAY[1l..pagesize] OF byterange; 


link=PACKED RECORD 
(* Wird zur Bezeichnung von Spur/Sektor Kombinationen benutzt *) 
tracknum:byterange; 
sectnum:byterange; 
END; 
tslist=(* Spur/Sektor Liste *) 
RECORD 
continuation:link; 
list:PACKED ARRAY[1..maxlink] OF link; 
END; 


did=STRING[didleng]; 
pid=STRING[pidleng]; 
sid=STRING[ sidleng]; 


dosfilekinds= (* DOS Filetypen *) 
(volinfo,unknown,dftext,dfinteger ‚applesoft,binary); 

pasfilekinds= (* Einige Pascal Filetypen *) 
(textfile,fotofile,untyped); 


(* Pascal Format der in einem DÖS Directory enthaltenen Informationen *) 
dosdirentry=PACKED RECORD CASE dfkind:dosfilekinds OF 
volinfo: (* Hier das volume info *) 
(dunitnum:unitrange; 
dnumentries:dirrange); 
unknown, 
dftext, 
dfinteger, 
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un:=stoi; 

IF NOT (un IN [0,4,5,9..12]) THEN writeln(chr(7)); 
UNTIL un IN [0,4,5,9..12]; 
unitnum:=un; 

get_unit_num:=(un<>0); 


PROCEDURE capitalize(VAR line:STRING); 
CONST 
ordsmla=97; 
ordsmlz=122; 
shiftcase=32; 
VAR 
index:O..maxbyte; 
BEGIN . 
FOR index:=1 TO length(line) DO 
IF line[lindex] IN [chr(ordsmla)..chr(ordsmlz) ] 
THEN line[index]:=chr(ord(line[index])-shiftcase); 
END; 


FUNCTION getpasid(VAR name:pid):BOOLEAN; 
BEGIN 
writeln; 
writeln( 'Geben Sie den Namen des Pascal-Zielfiles an.'); 
writeln( "Zum Abbrechen <RET> eingeben:'); 
writeln; 
write '>>"); 
readlIn(name); 
IF (length(name)=0) THEN getpasid :=FALSE 
ELSE BEGIN 
capitalize(name); 
getpasid:=TRUE; 


END; 


FUNCTION getdosid(VAR name:did):BOOLEAN; 
BEGIN 

writeln; 

writeln( 'Name des zu transferierenden DOS-Files'); 
writeln('Zum Abbrechen <RET> eingeben:'); 
writeln; 

write '>>'); 

readin(name); 

IF (length(name)=0) THEN getdosid:=FALSE 

ELSE BEGIN 

capitalize(name); 

getdosid:=TRUE; 

END; 

END; 


PROCEDURE getfiletype(VAR suffix:sid;VAR filetype:pasfilekinds); 
BEGIN 

writeln; 

writeln( "Transferieren als: '); 

writeln; 

writeln('T)ext file, F)oto file, oder D)aten (binaer) file?'); 
writeln; 

write('>> '); 

read(keyboard,ch); 
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applesoft, 
binary: 

(file_tsl:link; (* Adresse der Spur/Sektor Liste eines Files *) 
locked:BOOLEAN; (* Gibt an, ob File schreibgeschuetzt *) 
name:did; 
sectorcount:;byterange); 

(* Anzahl der zugehoerigen Diskettensektoren *) 
END; 


dosdirectory=ARRAY[dirrange] OF dosdirentry; 
VAR 

dosdir:dosdirectory; (* Aktuelles DOS Directory *) 
unitnum:unitrange; 

ioerror:INTEGER; 

ch:CHAR; 


FUNCTION readtrksec(unitnum:unitrange; 
trksec:link;VAR sb:sectbuffer;VAR ioerror :INTEGER) :BOOLEAN; 
(* Liest Sektornummer 'trksec.sectnum' aus der Spur Nr. 'trksec.tracknum' 
von Unit Nr. "'unitnum' *) 
VAR 
block:blockbuffer; 
blocknum,offset::INTEGER; 
BEGIN 
WITH trksec DO 
BEGIN 
(* Berechne Halbblock, der dem gewuenschten Sektor entspricht *) 
IF (sectnum IN [0,15])) THEN blocknum:=sectnum 
ELSE blocknum:=15-sectnum; 
IF (odd(blocknum)) THEN offset:=256 
ELSE offset::=0; 
(* Berechne nun den Blocknummernoffset von Spur Null *) 
blocknum:=(blocknum DIV 2)+8*tracknun; 
END; (* WITH trksec DO *) 
(*$I-*) 
unitread(unitnum,block,sizeof(block),blocknum); 
(*$I+*) 
ioerror:=ioresult; 
IF NOT (ioerror=0) THEN readtrksec :=FALSE 
ELSE BEGIN 
(* Schreibe in Sektorpuffer *) 
moveleft(block[offset+l],sb,sizeof(sectbuffer)); 
readtrksec :=TRUE; 
END; (* IF...THEN...ELSE *) 
END; 


FUNCTION writetrksec(unitnum:unitrange; 
trksec:link;VAR sb:sectbuffer;VAR ioerror:INTEGER) :BOOLEAN; 
VAR 
blocknum,of£fset :INTEGER; 
block:blockbuffer; 
BEGIN 
(* S. Kommentare zu 'readtrksec' *) 
WITH trksec DO 
BEGIN 
(* Berechne Halbblock, der dem gewuenschten Sektor entspricht *) 
IF (sectnum IN [0,15]) THEN blocknum:=sectnum 
ELSE blocknum:=15-sectnun; 
IF (odd(blocknum)) THEN offset:=256 
ELSE offset:=0; 
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(* Berechne nun den Blocknummernoffset von Spur Null *) 
blocknum:=(blocknum DIV 2)+8*tracknun; 
END; (* WITH trksec DO *) 
(*$I-*) 
unitread(unitnum,block,sizeof(block),blocknun); 
(*$I+*) 
ioerror:=ioresult; 
IF NOT (ioerror=0) THEN writetrksec :=FALSE 
ELSE BEGIN 
moveleft(sb,block[offset+1],sizeof(sectbuffer)); 
(*$I-*) 
unitwrite(unitnum,block,sizeof(block)); 
(*$1+*) 
ioerror:=ioresult; 
writetrksec :=ioerror=0; 
END; 
END; 


FUNCTION searchdir(target:did;VAR index:dirrange) :BOOLEAN; 
VAR 

found :BOOLEAN; 
BEGIN 

found:=FALSE; 

index:=dosdir[O].dnumentries; 

WHILE NOT (found OR (index=0)) DO 


found:=target=dosdir[index].name; 
index:=index-]; 


IF found THEN index:=indext]; 
searchdir:=found; 
END; 


FUNCTION stoi:INTEGER; 
VAR 
ch:CHAR; 
x: INTEGER; 
BEGIN 
xX:=0; 
read(ch); 
WHILE ch IN ['0'..'9'] DO 
BEGIN 
x:=10*%x+(ord(ch)-ord('0')); 
read(ch); 
END; 
writeln; 
stoi:=x; 
END; 


FUNCTION get_unit_num(VAR unitnum:unitrange) :BOOLEAN; 
VAR 


un: INTEGER; 

BEGIN 

REPEAT 
writeln; 
writeln('Geben Sie die Unitnummer [4,5,9..12] des Laufwerks an,'); 
writeln('in dem sich die zu lesende DOS-Diskette befindet. Zum'); 
writeln('Abbrechen "0" eingeben. '); 
writeln; 
write('>> '); 
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WHILE NOT (ch IN ['r','£','d','T’,'F','D']) DO 
BEGIN write(chr(7));read(keyboard,ch); END; 
writeln(ch); 
CASE ch OF 
'T','t':BEGIN suffix:='.TEXT' ;filetype:=textfile; END; 
'F','£':BEGIN suffix:='.FOTO';filetype:=fotofile; END; 
'D','d':BEGIN suffix:='";filetype:=untyped; END; 
END; 
END; 


PROCEDURE printmenu; 
CONST 

cleoln=29; 

BEGIN 

gotoxy(0,0); 

write(chr(cleoln), 'C)atalog, A)nzeige, T)ransfer, Q)uit?'); 
END; 


PROCEDURE readcommand (VAR ch:CHAR): 
BEGIN 
read(keyboard,ch); 
WHILE NOT(ch IN ['C','c','A','a','T','c','Q','q']) DO 
BEGIN 
write(chr(7)); 
read(keyboard,ch); 
writeln; 
END; 


PROCEDURE displayentry(de:dosdirentry); 
BEGIN 
WITH de DO 
BEGIN 
write(name,' ':(didleng-length(name)+1)); 
CASE dfkind OF 

dftext:write( 'text':6); 

dfinteger:write('int':6); 

applesoft:write('soft':6); 
binary:write('bin ':6); 
unknown:write('unb ':6); 

END; 

IF locked THEN write('ja ':8) 

ELSE write('nein':8); 
write(sectorcount:9); 
writeln(filetsl.tracknum:6, '-',filetsl.sectnun:3); 

END; 
END; 


PROCEDURE displayheader; 

BEGIN 

write('File Name'); 

write('Typ ":((didleng-length('file name'))+7)); 
write('Schr.g.':8); 

write( 'Sektoren':9); 

writeln('SSL link':10); 
END; 
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PROCEDURE displaydir; 
CONST 

cleos=11; 

esc=27; 

maxlines=2]1; 

VAR 
cumsectors:INTEGER; 
count:dirrange; 


BEGIN 
page(output); 
gotoxy(0,1); 
cumsectors:=0; . 
IF dosdir[O].dnumentries=0 THEN writeln( 'Das aktuelle Directory ist leer|') 
ELSE BEGIN 
displayheader; 
FOR count:=1 TO dosdir[O].dnumentries DO 
BEGIN 
displayentry(dosdir[count]); 
cumsectors:=cumsectors+dosdir[count].sectorcount; 
IF (count MOD maxlines)=0 THEN 
BEGIN 
write('Weiter mit <RET>, Abbrechen mit <ESC> '); 
read(keyboard,ch); 
IF ch=chr(esc) THEN exit(displaydir) 
ELSE BEGIN gotoxy(O,2);write(chr(cleos)); END; 
END; 
END; 
write(dosdir[O].dnumentries,' Filea auf Diskette, '); 
write(cumsectors, ' Sektoren belegt'); 


END; 

END; 

PROCEDURE catalog; 
CONST 

nextlink = 1; (* Das Byte Nr. 1 relativ zum Directorysektor ist das Link 

zum naechsten Directorysektor *) 

zerobase =11; (* 1. Byte der Fileinformation in einem Directorysektor *) 
entrylength=35; (* DOS-Directoryeintraege belegen 35 Bytes *) 

mark =maxbyte; (* Geloeschte Eintraege werden im (relativen) Byte Nr.O 

"markiert" *) 
maxindex 7; (* Maximal sieben Directoryeintraege pro Sektor *) 


space= 32; (* ASCII Leerzeichen *) 

tilde=126; (* ASCII tilde *) 
TYPE 

indexrange=0..maxindex; 

entrybuffer=PACKED ARRAY[1l..entrylength] OF byterange; 


VAR 
sectorindex:indexrange; 
entrybase:byterange; 
dir_link:link; 
dir_sector:sectbuffer; 
nextentry:entrybuffer; 
entrycount:dirrange; 
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FUNCTION eodir(dirlink:link) :BOOLEAN; 
BEGIN 
WITH dirlink DO 

eodir:=(sectnum=0) AND (tracknun=0); 
END; 


PROCEDURE fill_dir _entry(VAR de:dosdirentry;VAR eb:entrybuffer); 
CONST 


linkoffset = 1; (* Relatives Byte Nr. null gibt die Lage seiner 
Spur/Sektor Liste an *) 
kindoffset = 3; (* Relatives Byte Nr. zwei bezeichnet den Filetyp 


des Eintrages *) 
nameoffset = 4; (* Mit relativen Byte Nr. drei beginnt der Filename *) 
countoffset=34; (* Relatives Byte Nr. 33 ist die Sektoranzahl 
(MOD sectsize) der Datei *) 
lockbit =128; (* In schreibgeschuetzten Dateien ist das hoechstwertige 
Byte des Filetypenbytes gesetzt *) 
VAR 
j,kind:byterange; 
nonblank:O..didleng; 
BEGIN 
WITH de DO 
BEGIN 
filetsl.tracknum:=eb[linkoffset]; 
filetsl.sectnum:=eb[linkoffset+1]; 
kind:=eb[kindoffset]; 
IF NOT ((kind MOD lockbit) IN [0,1,2,4]) THEN dfkind:=unknown 
ELSE CASE (kind MOD lockbit) OF 
O:dfkind:=dftext; 
l:dfkind:=dfinteger; 
2:dfkind:=applesoft; 
4:dfkind:=binary; 
END; 
IF ((kind DIV lockbit)=1) THEN locked :=TRUE 
ELSE locked:=FALSE; 
FOR j:=0 TO (didleng-1l) DO 
BEGIN 
(* Hoechstwertiges Bit loeschen -> echter ASCII Wert *) 
eb[nameoffset+j]:=eb[nameoffset+j] MOD 128; 
(* Sonderzeichen loeschen *) 
IF NOT (eb[nameoffset+j] IN [space..tilde]) THEN eb[nameoffset+j]:=space; 
END; 
(* Letztes linkes Leerzeichen des Namensfeldes suchen *) 
nonblank:=-scan(-didleng,<>' ',eb[nameoffset+didleng-1]); 


(* Initialisierung der Laenge von 'name' *) 
(*$R-*) 

name[0O]:=chr(didleng-nonblank); 

(*$R+*) 

(* Schliesslich Name einkopieren *) 
moveleft(eb[nameoffset],name[l],length(name)); 
sectorcount:=eb[countoffset]; 
END; (* WITH de DO *) 

END; (* filldirentry *) 


FUNCTION eodirsector 


(VAR index:indexrange; 
VAR dirsector:sectbuffer;VAR entrybase:byterange) :BOOLEAN; 
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VAR 
nofile:BOOLEAN; 
BEGIN 
nofile:=TRUE; 
WHILE (nofile AND (index<maxindex)) DO 
BEGIN 
index:=indextl; 
entrybase:=zerobase+(index-l1)*entrylength; 
nofile:=(dirsector[entrybase] IN [O,mark]); 


eodirsector:=nofile; 
END; 


BEGIN (* catalog *) 
page(output); 
IF NOT getunitnum(unitnum) THEN exit(catalog); 
WITH dir_link DO 
BEGIN 
tracknum:=dirtrack; 
sectnum:=firstdirsect; 
END; 
entrycount:=0; 
WHILE NOT eodir(dir link) DO 
BEGIN 
IF NOT readtrksec(unitnunm,dir_link,dir_sector,,ioerror) 
THEN BEGIN writeln('E/A-Fehler ',ioerror,' beim Lesen des Directories'); 
exit(catalog); 
END 
ELSE BEGIN 
sectorindex:=0; 
WHILE NOT eodirsector (sectorindex,dir _sector,entrybase) DO 
BEGIN 
moveleft(dir_sector[entrybase],nextentry,entrylength); 
entrycount:=entrycount+l; 
filldirentry(dosdir[entrycount],nextentry); 
END; 
END; (*IF...THEN...ELSE *) 
WITH dir_link DO 
BEGIN 
tracknum:=dir_sector[nextlink]; 
sectnun:=dir_sector[nextlink+l]; 
END; 
END; 
WITH dosdir[O] DO 
BEGIN 
dnumentries:=entrycount; 
dunitnum:=unitnunm; 
END; 
displaydir; 
END; (* catalog *) 
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(*$IDPTH2.1:TRANSFER.TEXT*) 


BEGIN 
WITH dosdir[0] DO 
BEGIN dfkind:=volinfo; dnumentries;=0; dunitnum:=0; END; 
page(output); 
gotoxy(0,5); 
writeln( 'Willkommen bei PUFFIN!'); 
REPEAT 
printmenu; 
readcommand(ch); 
CASE ch OF 
'c','C':catalog; 
'a','A':displaydir; 
'r’ 'T'etransfer; 
END; 
UNTIL ch IN ['Q','q']; 
END. 
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Ron DeGroat 


Pascal Speicher- 
diagnose (PMU) 


Das PMU-Programm (Pascal Memory Utility) wurde zur Unterstützung für 
den Benutzer entwickelt, das Apple Pascal System in seine Komponenten zu 
zerlegen und sich in der untersten Systemebene zurechtzufinden. Mit PMU 
kann man über eine große Anzahl von Benutzerbefehlen alle Teile des 
Pascal-Betriebssystems disassemblieren, untersuchen oder in beliebiger Wei- 
se modifizieren. Die auffälligste Charakteristik dieses Programms ist die 
Verwendung von Monitor-ROM-Subroutinen für den größten Teil der 
PMU-Funktionen, insbesondere für E/A-Operationen. Der in Pascal ge- 
schriebene Teil des Programms dient hauptsächlich dazu, die Benutzeroptio- 
nen anzuzeigen und die entsprechenden ROM-Routinen aufzurufen. 

Eine Verwendung von ROM-Routinen hat zwei wesentliche Vorteile: 
zum einen ist die meiste Arbeit damit bereits erledigt, zum anderen sind die 
in Maschinencode vorliegenden Routinen blitzschnell. Eingefleischte Pascal- 
Freaks mögen dabei vielleicht die Nase rümpfen, Pragmatiker hingegen wer- 
den sich des im ROM plazierten Programmcodes gern bedienen. 

Vor einer Beschäftigung mit der Arbeitsweise von PMU steht das Wissen 
um die Funktionsweise der Language Card. Unter Pascal muß die Apple II- 
Hauptplatine auf 48K RAM ausgebaut sein (Adressen $0-BFFF). Weitere 4K 
($C000-CFFF) werden von Peripheriegeräten und E/A-Treibern belegt. Da- 
mit bleibt ein Adreßbereich von nur 12K ($D000-FFFF) der 16K RAM auf 
der Language Card frei. Dieses Problem ist zu bewältigen, indem man den 
Adreßbereich $D000-DFFF (4K) doppelt auslegt und zwischen beiden Banks 
mit Hilfe von Kontrollcodes hin- und herschaltet. Die Kontrollcodes sind 
spezielle Speicherzellen, die wie Schalter funktionieren und bei einem Zu- 
griff von einer (4K) Bank auf die andere umschalten. Nähere Informationen 
hierzu finden Sie im Apple Language System Manual, Anhang D unter 
“Language Card Control Codes‘‘. Durch die Verwendung der Schalter, die 
bestimmen, auf welche der beiden 4K Banks jeweils zugegriffen werden soll, 
ist es möglich, 8K Bytes in einem Adreßbereich von nur 4K Bytes zu spei- 
chern. Zusätzlich zur Bank-Wechselschaltung dienen Kontrollcodes dazu, 
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das RAM auf der Language Card gegen ungewolltes Überschreiben zu schüt- 
zen und es ein- oder auszuschalten. 
Durch Abschalten des RAMs werden zwei ROMSs aktiviert: 
das Autostart-ROM ($F800-FFFF) auf der Language Card; 
das Hauptplatinen-ROM ($D000-F7FF), das den BASIC-Interpreter ent- 
hält. 


Der größte Teil des Pascal Systems liegt im RAM der Language Card 
($D000-FFFF). Das BIOS (Basic Input/Output System) befindet sich in der 
zweiten 4K Bank ($D000-DFFF), während der P-Code-Interpreter die erste 
4K Bank ($D000-DFFF) und einen Teil der restlichen 8K der Language Card 
belegt ($E000-FFFF). Dadurch entsteht das Problem, daß das RAM auf der 
Language Card nicht gelesen werden kann, wenn die ROMs aktiviert sind. 
Glücklicherweise greifen die meisten von PMU verwendeten Monitorrouti- 
nen nicht direkt auf das RAM der Language Card zu. Ein Teil des ROM- 
Disassemblers muß ins RAM kopiert werden, damit bestimmte Adressen ge- 
ändert werden können (vgl. PROC INITDISASSEM in Listing Nr.2). Diese 
Änderungen erlauben es, das RAM jedesmal ein- oder auszuschalten, wenn 
wenn der ROM-Disassembler ein Byte benötigt. Die beiden 4K Banks auf der 
Language Card verkomplizieren die Sache noch weiter. Die Bank- 
Umschaltung und das Hin- und Herschalten zwischen RAM und ROM wird 
von den in Listing Nr.2 abgebildeten Assemblerroutinen automatisch über- 
nommen. Trotz dieser Komplikationen hat die Vorgehensweise einen unbe- 
streitbaren Vorteil: Durch die 12K des ROM und die zweite 4K Bank im 
RAM hat das Language System einen effektiv adressierbaren Speicherplatz 
von 80K!! 

Eine weitere unschätzbare Besonderheit des PMU-Programms ist die 
praktisch narrensichere Dateneingabe. Unzulässige Zeichen werden nicht ak- 
zeptiert, wenn Fehler auftreten, warnt den Benutzer sofort ein unangeneh- 
mer Lautsprecherton. Selbst Längenbegrenzungen werden in der Form be- 
rücksichtigt, daß in Erwartung einer Hex-Adressen-Eingabe nur Hexadezi- 
malziffern (0..F) zugelassen und nicht mehr als vier Zeichen akzeptiert wer- 
den. 

Das PMU-Hauptmenü hält folgende Benutzerbefehle bereit: 


PMU:D(ISASM U(NTERSUCHEN 
A(ENDERN P(RINTER[AUS] 
S(UCHEN M(ONITOR 

B(ANK [1] E(NDE 
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D(ISASM 


(Disassemblieren) 
Ermöglicht dem Anwender, Speicherbereiche mit dem Di- 
sassembler des Monitors zu disassemblieren. 


U(NTERSUCHEN 


A(ENDERN 


P(RINTI[EIN] 


S(UCHEN 


M(ONITOR 


B(ANK[2] 


Gibt Speicherbereiche im Hexadezimal- und ASCII- 
Format aus. 


Ermöglicht das Ändern von Speicherinhalten. 


Ist der in Klammern stehende Wert ‘“EIN‘', so wird die 
Datenausgabe auf den Drucker geleitet (80-Spalten- 
Format). Ist der Wert “AUS“‘, erfolgt die Ausgabe im 40- 
Zeichen-Format auf dem Bildschirm. Die Wechselschal- 
tung zwischen beiden Möglichkeiten wird über die P- 
Taste gesteuert. 


Läßt das Auffinden einer Folge aus zwei oder drei hexa- 
dezimalen oder ASCII-Werten im Speicher für den Be- 
nutzer zum Kinderspiel werden. 


Ruft den ROM-residenten Monitor auf. Das RAM der 
Language Card kann nicht adressiert werden, auf das ge- 
samte übrige RAM kann man jedoch mit den Monitorbe- 
fehlen zugreifen. Der Rücksprung zu PMU erfolgt durch 
Eingabe von Ctrl-Y, «RETURN». 


(Bankumschaltung) 

Erlaubt ein Umschalten auf die andere 4K Bank. Die au- 
genblicklich aktivierte Bank wird in eckigen Klammern 
angezeigt. Durch Drücken der B-Taste wird auf die je- 
weils andere Bank umgeschaltet. 


DISASM, UNTERSUCHEN und AENDERN haben eigene Untermenüs, 


z.B.: 
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DISASM: A(UFLISTEN, W(EITER 
N(EUER BEREICH B(ANK[1] E(NDE 


A(UFLISTEN 
Disassembliert zwanzig Zeilen, beginnend bei einer vom 
Benutzer angegebenen Adresse. 


W(EITER 
Disassembliert die nächsten zwanzig Zeilen. 


N(EUER BEREICH 
Disassembliert einen vom Benutzer bestimmten Speicher- 
bereich. 


B(ANK 
Wie ein BANK-Befehl im PMU-Hauptmenü. 


UNTERSUCHEN hat das gleiche Menü wie DISASM. Hierbei wird der an- 
gegebene Speicherbereich jedoch nicht disassembliert, sondern im Hex- und 
ASCII-Format ausgegeben. 

Unten haben wir ein Beispiel für das AENDERN-Menü aufgeführt: 


[ESC] = ENDE, 
[CR] = ÜBERSPRINGEN) 


STARTADR 400 
400- AO AO 

401- BI BE 

402- C3 


Die erste Spalte gibt die betreffende Adresse in Hex-Schreibweise an, in der 
zweiten Spalte steht der ursprüngliche Speicherinhalt und die dritte Spalte 
zeigt den neuen Wert. Durch Eingabe eines CR bleibt der aktuelle Wert un- 
verändert, und die nächste Adresse wird ausgegeben. Durch Drücken der 
Esc-Taste wird die Änderungsoption verlassen und die Kontrolle wieder an 
die Hauptbefehlsebene von PMU zurückgegeben. Mit Ausnahme des Moni- 
tors funktioniert die Esc-Taste auch bei den anderen Befehlen von PMU. 
Der SUCHEN-Befehl kann dazu verwendet werden, auf einfache Weise eine 
Sequenz aus zwei oder drei Bytes zu finden, die hexadezimal oder als ASCII- 
Werte angegeben werden. Bevor SUCHEN startet, wird die zweite RAM 
Bank ($D000-DFFF) in die erste HIRES-Grafikseite kopiert ($2000-2FFF) 
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um Probleme zu vermeiden, die durch die Bank-Umschaltung entstehen 
könnten. Die ursprüngliche Suchroutine benötigte mindestens fünf Minuten, 
um die gesamten 64K RAM zu durchsuchen. Zur Verbesserung der Ge- 
schwindigkeit wurde der zeitkritische Teil der Pascal-Routine durch eine As- 
semblerprozedur ersetzt, mit der sich die Suchzeit auf 4,5 Sekunden verkür- 
zen ließ (die sich jedoch entsprechend verlängert, wenn viele Übereinstim- 
mungen gefunden werden). 


SUCHEN[3]: H)EX, B(UCHST., E(NDE 


Die [3] gibt an, daß nach einer Sequenz von drei Werten gesucht werden soll. 
Will man eine aus nur zwei Werten bestehende Hex-Sequenz finden (z.B. die 
Adresse $CIF7), reicht es, auf diesen Suchmodus durch Eingabe der Ziffer 2 
umzuschalten. Der Bildschirm sieht dann wie folgt aus : 


SUCHENTP2]: H)EX, B(UCHST., E(NDE 
Drückt man jetzf die H-Taste, so entwickelt sich etwa folgender Dialog: 


NACH SEQUENZ SUCHEN 
1) F7 (Bei Adressen kommt das LSB zuerst) 


2) C9 
DURCHSUCHE SPEICHER... 


SEQUENZ F7 C9 


FF84 FFAO FFCC (Die gefundenen Adressen sind in Hex angegeben) 


Ein kleiner Speicherbereich (Adressen $C030-$C100) wird dabei absichtlich 
ausgelassen, da er Soft Switches enthält, mit denen verschiedene E/A- 
Funktionen aktiviert werden. Würden diese Adressen nicht übersprungen, 
resultierte dies in einer Abschaltung der normalen Textdarstellung. 

Der MONITOR-Befehl von PMU eignet sich nicht dazu, das Pascal- 
System zu untersuchen, da der Monitor nicht auf der Language Card operie- 
ren kann (Monitor und Pascal belegen den gleichen Speicherbereich). Man 
kann jedoch den Monitor dazu verwenden, die Entwicklung anderer PMU- 
Befehle zu unterstützen, die ebenfalls ROM-Subroutinen verwenden. Man 
kann ihn auch dazu benutzen, Fehler in Maschinenroutinen zu suchen, die 
mit dem UCSD-Assembler entwickelt wurden. Mit der Sequenz: Ctrl-Y, 
«RETURN gelangt man wieder ins PMU-Programm zurück. Vom Monitor 
aus kann man auch das BASIC aufrufen; ein Rücksprung nach Pascal ist 
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dann jedoch nicht mehr möglich, da BASIC die unangenehme Angewohn- 
heit hat, den Pascal Stack durcheinander zu bringen. 

Um PMU startklar zu machen, muß zuerst das in Listing Nr.1 abge- 
drucke Programm kompiliert und die korrekt assemblierten Routinen aus 
Listing Nr.2 in das Codefile eingebunden werden. 

Im folgenden wollen wir Sie mit ein paar Hilfen ausstatten, mit denen es 
Ihnen leichter fallen sollte, das Pascal-Betriebssystem zu untersuchen. Eine 
gute Quelle bietet das Kapitel ‘“Pascal Intern‘‘, in dem viele brauchbare In- 
formationen über das Pascal-System zu finden sind. 

Untenstehende Tabelle enthält einige nützliche Speicheradressen. Die in 
eckigen Klammern angegebenen Zahlen bezeichnen die entsprechende Spei- 
cherbank: 


Tab.1 Pascal Systemadressen 


Beschreibung Pascal 1.1- Pascal Il.1- 
Adresse Adresse 
Tastatureingabe-Puffer 3B1-3FF 3B1-3FF 
(Normalerweise) Heap-Anfang C00 C00 
Zuletzt gelesenes Directory D72-155E D72-155E 
SYSCOM BDDE BDDE 
P-Code Decoder D253[1] D243[1] 
P-Code-Sprungtabelle DO00[1] DO000[1] 
Konsolen-Eingaberoutine 
(CONCK) D772[2] D681[2] 
Konsolen-Initialisierung (CINIT) D734[2] D898[2] 
Schreiben auf Konsole (CWRITE) D7DO[2] D9YS0L2] 
Schreiben auf Drucker (PWRITE) D830[2] DIC3T2] 
Drucker-Initialisierung (PINIT) D788[2] D8SEF[2] 
Schreiben auf Disk (DWRITE) DO038[2] DO28[2] 
Lesen von Disk (DREAD) DO3CT[2] DO2C[2] 
Disk-Initialisierung (DINIT) DO00[2] D683[2] 
Lesen von externem Gerät 
(RREAD) D84E[2] DIES[2] 
Schreiben auf externes Gerät 
(RWRITE) D809[2] DIICT2] 
Initialisierung externes Gerät 
(RINIT) D79CL2] D91CI2] 
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Mit PMU sind kleinere Modifikationen des 
Pascal-Systems leicht möglich. So läßt sich zum 
Beispiel der Textdarstellungsmodus ändern, in- 
dem man die Adressen $DABOI[2] (Pascal 1.1) 
bzw. $D8EDI[2] (Pascal II.1) von $40 (Normal- 
modus) auf blinkende ($00) oder inverse Darstel- 
lung ($40) setzt. Auch bestimmte Tastenzuord- 
nungen lassen sich ändern : 


Tab.2 Zuordnung der Pascal Ctrl-Tasten 


Taste Hex.Wert 1.1 Adresse Il.1 Adresse 
\ 
) 
Ctrl-K OB D7A2[2] D6AS[2] 
Ctrl-A 01 7A8[2] D6ABI[2] 
Ctrl-Z 1A D7BA[2] D6BDI[2] 
Ctrl-F 06 BE31 BE31 
Ctrl-Shift-P 00 BE32 BE32 
Ctrl-S 14 BE33 BE33 


Sie müssen natürlich darauf achten, daß Sie kei- 
ne Tastenzuordnungen vornehmen, die mit vor- 
her festgelegten Werten kollidieren. Da diese 
Änderungen im Hauptspeicher vorgenommen 
werden, gelten sie nur bis zur nächsten Initiali- 
sierung. Die Speicheränderung kann jedoch 
auch permanent gemacht werden, indem man 
die entsprechenden Stellen der 
SYSTEM.APPLE-Datei auf der Boot-Diskette 
ändert. Diese Methode ist relativ einfach, da die 
Speicheradressen $D000[2]-DFFF und $E000- 
FFFF hintereinander in den Blöcken 0-23 der 
SYSTEM.APPLE-Datei abgelegt sind, d.h. 
$D000[2] ist das O-te Byte in Block 0 und $FFFF 
ist das letzte (511-te) Byte in Block 23. Die erste 
Bank ($DO000[1]-DFFF) befindet sich in den 
Blocks 24 bis 32. Änderungen des Diskettenfiles 
können mit dem in diesem Buch vorgestellten 
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Programm PASCAL ZAP vorgenommen wer- 
den. Bei Verwendung des PASCAL ZAP- 
Programms müssen sie die korrekte absolute 
Blocknummer des zu ändernden Blocks kennen. 
Normalerweise ist der 0O-te Block von 
SYSTEM.APPLE Block 6 auf der Diskette. 


Da Änderungen der Disk-Dateien mehr oder weniger permanent sind, ist es 
besser, Systemänderungen im Hauptspeicher vorzunehmen. Gibt man dem 
Programm, mit dem der Speicherinhalt geändert wird, den Namen SY- 
STEM.STARTUFP., dann wird es bei jedem Booten des Systems automatisch 
ausgeführt. Die Systemmodifikationen können dann einfach unwirksam ge- 
macht werden, indem man den Namen des STARTUP-Programms ändert 
und die Diskette neu bootet. 

Im Allgemeinen sollten Änderungen des Betriebssystems aus Gründen 
der Kompatibilität vermieden werden. Es gibt jedoch bestimmte Anwendun- 
gen (z.B. Darstellung von Kleinbuchstaben), wo eine Modifikation des Be- 
triebssystems die beste (cleverste oder einfachste) Lösung des Problems dar- 
stellt. Es ist nicht allzu schwer, PMU um weitere Befehle zu erweitern. So 
wurde der Hex/ASCII-Suchmodus hinzugefügt, kurz nachdem das Pro- 
gramm veröffentlicht worden war. Ich möchte Sie als Leser dazu ermutigen, 
eigene Befehlsoptionen zu entwickeln oder wenigstens eigene Ideen für wei- 
tere Implementierungen beizusteuern. Je mehr Befehle hinzugefügt werden, 
desto nützlicher wird PMU. 

Mit PMU läßt sich das Pascal System eingehend untersuchen. Es wurde 
nicht dazu entwickelt, um dem Benutzer Peek- und Poke-Befehle wie im 
BASIC zur Verfügung zu stellen, da man damit von absoluten Adressen ab- 
hängig wird und die so entstehenden Programme wenig flexibel sind. Die 
Absicht von PMU liegt vielmehr darin, dem Benutzer direkten Zugriff auf 
das Pascal System zu ermöglichen. Ich hoffe, dieses Programm hilft, die 
Neugierde derer zu befriedigen, die genau wissen wollen, wie das Betriebs- 
system funktioniert. Darüberhinaus kann das Programm als nützliches 
Software-Werkzeug funktionieren und denen helfen, die die Möglichkeiten 
des UCSD-Pascal voll ausschöpfen wollen (oder müssen). 
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GR) 
(* LISTING #1: PASCAL MEMORY UTILITY *) 
* 


(* VON RON DEGROAT 15-APR-8l *) 
(* DEUTSCHE ADAPTION *) 
(* BODO MESEKE *) 
Geese) 
(*$S+*) 

PROGRAM PMU; 


CONST PRINTADDR=-16128; (* $C100 *) 
COUT1=-528; (* $FDFO *) 


TYPE MAGIC=RECORD CASE BOOLEAN OF 
TRUE: (ADDR: INTEGER); 
FALSE: (VECTOR: "INTEGER); 
END; 
SETOFCHAR=SET OF CHAR; 
® 


BYTE=0..255; 


VAR ENDADDR,ADDR,VAL,BANK :INTEGER; 


NUMOFCOLS ‚TEMP :INTEGER; 

IC (*INST. ZAEHLER*) :INTEGER; 

SEARCHADDR :INTEGER; 

EOL ,BELL,CH :CHAR; 

ESC,BS,CR :CHAR; 

DESET ,HEXSET , PMUSET :SETOFCHAR; 

CHRSET ,OKSET :SETOFCHAR; 

GOOD, ESCOK :BOOLEAN; 

CSW :MAGIC; 

HEXADDR ‚HEXBYTE :STRING; 

PSW :STRING[3]; 
PROCEDURE INITDISASSEM; EXTERNAL; 
PROCEDURE DISASSEM; (* BENUTZT IC *) EXTERNAL; 
PROCEDURE MONITOR; EXTERNAL; 
PROCEDURE PRINTCR; EXTERNAL; 
PROCEDURE SWITCHBANK ; EXTERNAL; 


PROCEDURE PRINTXADDR(ADDR: INTEGER); EXTERNAL; 
PROCEDURE PRINTHEXBYTE(ADDR:INTEGER); EXTERNAL; 
PROCEDURE PRINTCHARBYTE(ADDR:INTEGER); EXTERNAL; 
PROCEDURE BANKIPOKE(ADDR,VAL:INTEGER); EXTERNAL; 
PROCEDURE BANK2POKE(ADDR,VAL:INTEGER); EXTERNAL; 


PROCEDURE DOCHOICE; FORWARD; 

(* ACHTUNG : Die Variable IC ist in DISASSEM *) 
(* eine globale Variable, die den IC auto- *) 
(* matisch so anpasst, dass er auf die *) 
(* naechste zu disassemblierende Instruktion *) 
(* zeigt. *) 
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PROCEDURE ABORT; 


BEGIN 
PAGE(OUTPUT); 
ESCOK :=FALSE; 
EXIT(DOCHOICE); 

END; 


FUNCTION GETCHAR(OKSET:SETOFCHAR) :CHAR; 


VAR CH :CHAR; 
GOOD :BOOLEAN; 
BEGIN 
REPEAT 


READ(KEYBOARD,CH); 

IF EOLN(KEYBOARD) THEN CH:=CR; 

IF (CH=ESC) AND ESCOK THEN ABORT; 
GOOD:=CH IN OKSET; 

IF NOT GOOD THEN WRITE(BELL) 
ELSE IF CH IN [' '..CHR(125)] 
THEN WRITE(CH); 

UNTIL GOOD; 
GETCHAR :=CH; 
END; 


PROCEDURE GETSTRING(VAR S:STRING; 
OKSET:SETOFCHAR; MAXLEN:INTEGER); 


VAR S1 :STRING[ 1]; 
STEMP :STRING; 
LEN :INTEGER; 


FIRSTCHAR :BOOLEAN; 
LASTCHAR :BOOLEAN; 
GETSET :SETOFCHAR;; 


BEGIN 

Sl:=' ':; STMP:='""; 
REPEAT 
LEN:=LENGTH(STEMP); 
FIRSTCHAR:=(LEN=0); 
LASTCHAR : =(LEN=MAXLEN) ; 


IF FIRSTCHAR THEN GETSET:=OKSET 
ELSE IF LASTCHAR THEN GETSET:=[CR,BS] 
ELSE GETSET:=OKSET+[CR,BS]; 


S1[1]:=GETCHAR(GETSET); 
IF SI[1] IN OKSET THEN 


STEMP :=CONCAT(STEMP,S1) 
ELSE IF Sı1[1]=BS THEN 


BEGIN 

WRITE(BS,' ',BS); 
DELETE(STEMP,LEN,1); 
END; 


UNTIL SI[1]=CR; 
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S:=STEMP; 
END; (*GETSTRING*) 


PROCEDURE PROMPTAT(L:INTEGER ;S:STRING): 
BEGIN 

GOTOXY(O,L); 

WRITE(S,EOL); 

END; 


FUNCTION DEC(HEXSTR:STRING) :INTEGER; 


VAR DIGIT,NUM, 
STRPTR :INTEGER; 
XDIGITS :PACKED ARRAY[O..15] OF CHAR; 


BEGIN 
NUM: =0; 
XDIGITS:='0123456789ABCDEF'; 
FOR STRPTR:=1 TO LENGTH(HEXSTR) DO 
BEGIN 
DIGIT:=SCAN(16,=HEXSTR[STRPTR],XDIGITS): 
NUM: =NUM*16+DIGIT; 
END; 
DEC:=NUM; 
END; 


PROCEDURE GETADDR(STR:STRING) ; 


BEGIN 
WRITELN;WRITELN; 
WRITE(STR); 
GETSTRING(HEXADDR ‚HEXSET, 4); 
ADDR:=DEC(HEXADDR); 


’ 


PROCEDURE CHANGE; 


BEGIN 

PROMPTAT(O,'AENDERN: (<ESC> '); 
WRITE('= ENDE, <CR> = UEBERSPRINGEN)'); 
GETADDR( 'STARTADR ==> '); 


PAGE(OUTPUT); 
PRINTCR; (* AUSGABE BEGINNT LINKS *) 
REPEAT 


PROMPTAT(1,'AENDERN: (<ESC> '); 
WRITE('= ENDE, <CR> = UEBERSPRINGEN'); 
GOTOXY(79,0); 
IC:=ADDR; 
PRINTXADDR(ADDR); 
PRINTHEXBYTE(ADDR); 
GOTOXY(9,23); 
GETSTRING(HEXBYTE ,‚HEXSET+[CR],2); 
GOTOXY(79,0); 
DELETE(HEXBYTE ,LENGTH(HEXBYTE) ,1); 
IF LENGTH(HEXBYTE)<>O THEN 

BEGIN 

VAL:=DEC(HEXBYTE); 
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IF BANK=1 THEN BANKI1POKE(ADDR,VAL) 
ELSE BANK2POKE(ADDR,VAL); 
END; 
PRINTHEXBYTE(ADDR); 
PRINTCR; 
ADDR:=ADDR+]; 
UNTIL FALSE; 
END; (*CHANGE*) 


PROCEDURE LINEOFBYTE(VAR ADDR:INTEGER); 

VAR J :INTEGER; 

BEGIN 

PRINTXADDR(ADDR); 

FOR J:=ADDR TO ADDR+NUMOFCOLS-1 DO 
PRINTHEXBYTE(J); 

FOR J:=ADDR TO ADDR+NUMOFCOLS-1 DO 
PRINTCHARBYTE(J); 

ADDR :=ADDR+NUMOFCOLS; (*ADRESSE ANPASSEN*) 

PRINTCR; 

END; 


PROCEDURE XNEXT; 

VAR I :INTEGER; 

BEGIN 

PRINTCR; 

FOR I:=1 TO 20 DO LINEOFBYTE(ADDR); 
END; 


PROCEDURE XLIST; 


BEGIN 

PROMPTAT(O, 'UNTERSUCHEN : AUFLISTEN'); 
GETADDR( 'STARTADR => '); 
PAGE(OUTPUT); 

XNEXT; 
END; 


PROCEDURE XRANGE; 


BEGIN 

GETADDR( 'STARTADR ==> '); 

TEMP :=ADDR; 

GETADDR( "ENDADR ==> '); 

PAGE(OUTPUT); 

PRINTCR; 

ENDADDR:=ADDR; 

ADDR :=TEMP; 

WHILE ADDR<=ENDADDR DO LINEOFBYTE(ADDR); 
END; 
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PROCEDURE BANKCHANGE; 


BEGIN 
BANK:=(BANK MOD 2)+1; 
SWITCHBANK; 

END; 


PROCEDURE EXAMINE; 
VAR CH:CHAR; 


BEGIN 
REPEAT 
PROMPTAT(O, 'UNTERSUCHEN: A(UFLISTEN W(EITER '); 
WRITE('N(CEUER BEREICH B(ANK[',BANK,'] E(NDE'); 
CH:=GETCHAR(DESET); 
PAGE(OUTPUT); 
CASE CH OF 
'A' 'a':XLIST; 
'W','w':XNEXT; 
'N','n":XRANGEZs 
'B','"b"':BANKCHANGE; 
END; 
UNTIL CH IN ['E','e']; 
END; (*EXAMINE*) 


PROCEDURE NEXT; 

VAR I :INTEGER; 

BEGIN 
FOR I:=1 TO 20 DO DISASSEM(* IC *); 
‚PRINTCR; 

END; 


PROCEDURE LIST; 


BEGIN 
PROMPTAT(O,'DISASM: AUFLISTEN'); 
GETADDR( 'STARTADR => '):; 


PAGE(OUTPUT); 

IC:=ADDR; (*IC (INSTR COUNTER)*) 
NEXT; (*GLOBAL FUER DISASSEM*) 
END; 


PROCEDURE RANGE; 


BEGIN 
PAGE(OUTPUT); 
PROMPTAT(O, 'DISASM: BEREICH'); 
GETADDR( 'STARTADR => '); 
IC:=ADDR; 
GETADDR( 'ENDADR ==> '); 
PAGE(OUTPUT); 
WHILE IC<=ADDR DO DISASSEM(* IC *); 
PRINTCR; 

END; 
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PROCEDURE DISASM; 
VAR CH:CHAR; 


BEGIN 
REPEAT 
PROMPTAT(O, 'DISASM: A(UFLISTEN W(EITER '); 
WRITE('N(EUER BEREICH B(ANK[',BANK,'] E(NDE'); 
CH:=GETCHAR (DESET); 
PAGE(OUTPUT); 
CASE CH OF 
'aA','a':LIST; 
'W'.'w':NEXT; 
'N','n':RANGE; 
'B','b':BANKCHANGE; 
END; (*CASE*) 
UNTIL CH IN ['E','e']; 
END; 


PROCEDURE PRINT; 
BEGIN 


(*$I-*) 
UNITCLEAR(6); 
IF IORESULT<>O THEN 
BEGIN 
PROMPTAT(3, 'DRUCKER NICHT ANGESCHLOSSEN"! ): 
EXIT(PRINT); 
END; 
(*$I+*) 


IF PSW='"AUS' THEN 
BEGIN 
CSW .VECTOR” :=PRINTADDR; 
PSW:="EIN'; 
NUMOFCOLS :=16; 

END 

ELSE 

BEGIN 
CSW.VECTOR” :=COUT] ; 
PSW:="AUS'; 
NUMOFCOLS:=8; 

END; 

END; (*PRINT*) 


FUNCTION FOUND(FIRST,SECOND, THIRD:BYTE; 
NOTHIRD :: BOOLEAN) :BOOLEAN; 

EXTERNAL; 

PROCEDURE MOVEBANK2; 

EXTERNAL; 
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( at ES 2 22 £ 2 2 2 32. U 2 2 27 232.2 2 227 2 22.2 22 2.22 2 2 2 2 22 + 2 22 ) 


(* DURCHSUCHEN DES HAUPTSPEICHERS NACH EINER*) 
(* FOLGE VON 2 ODER 2 HEXADEZIMALEN ODER *) 
* 


(* ASCII-ZEICHEN 
Goal) 


PROCEDURE SEARCHMEM; 


VAR FIRST,SECOND, THIRD :BYTE; 
SFIRST,SSECOND,STHIRD :STRING; 
SLEN, 

FOR2OR3 , COLCOUNT :INTEGER; 
NOTHIRD, 

SEQNOTFOUND, 

DONE :BOOLEAN; 
CH :CHAR; 
XADDR :STRING[4]; 


BEGIN 

NOTHIRD :=FALSE; 
THIRD:=0; 
STHIRD:='0'; 
FOR2OR3 :=3; 


REPEAT 

GOTOXY(0,0); 

WRITE( '>SUCHEN[ ' ,FOR2OR3,']: H(EX, B(UCHST., E(NDE'); 
CH:=GETCHAR([ 'H','h','B','b','E','e!,'2','3']); 
PAGE(OUTPUT); 


IF CH IN ['2','3'] THEN 
CASE CH OF 

'2':BEGIN 
NOTHIRD:=TRUE; 
FOR2OR3:=2; 

END; 

'3'.BEGIN 
NOTHIRD:=FALSE; 
FOR2OR3:=3; 

END; 
END (*CASE*) 


ELSE 
IF NOT (CH IN ['E','e']) THEN 
BEGIN 


CASE CH OF 
'H','n':BEGIN OKSET:=HEXSET; SLEN:=2; END; 
'B','b':BEGIN OKSET:=CHRSET; SLEN:=1; END; 
END; (*CASE*) 


(*SEQUENZ HOLEN*) 


WRITELN; 

WRITELN('NACH SEQUENZ SUCHEN'); 
WRITEC'1. => '); 
GETSTRING(SFIRST,OKSET,SLEN);WRITELN; 
WRITE('2. => '); 
GETSTRING(SSECOND,OKSET,SLEN) ;WRITELN; 
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IF NOTHIRD=FALSE THEN 

BEGIN 

WRITE('3. => '); 
GETSTRING(STHIRD,OKSET,SLEN) ;WRITELN; 
END 


(*IN INTEGER UMWANDELN*) 


IF CH IN ['H','n'] THEN 
BEGIN 
FIRST :=DEC(SFIRST); 
SECOND:=DEC(SSECOND) ; 
THIRD :=DEC(STHIRD); 
END 


ELSE 
BEGIN 
FIRST :=ORD(SFIRST[1]); 
SECOND:=ORD(SSECOND[1}); 
THIRD :=ORD(STHIRD[1]); 
END; 


PROMPTAT(12, 'DURCHSUCHE SPEICHER... ');WRITELN; 
WRITELN( "ZWEITE BANK (DOOO-DFFF) IN GRAPHIKSEITE'); 
WRITE( "KOPIERT (2000-2FFF)'); 


(* DIE EIGENTLICHE SUCHE ERFOLGT IN DER *) 
(* EXTERNEN PROZEDUR FOUND *) 


MOVEBANK2; 

SEQNOTFOUND: =TRUE; 

SEARCHADDR :=0; (* SUCHE BEI NULL BEGINNEN *) 
COLCOUNT :=0; 

DONE :=FALSE; 


GOTOXY(0,20); 

WRITE( 'SEQUENZ' ‚SFIRST:4,SSECOND:4); 
IF NOT NOTHIRD THEN 
WRITELN(STHIRD:4); 


GOTOXY(80,0); (*CURSOR VOM BILDSCHIRM NEHMEN*) 
PRINTCR; (*AUSGABE LINKS BEGINNEN*) 


REPEAT 
IF (FOUND(FIRST,SECOND,THIRD,NOTHIRD)) THEN 
BEGIN 
SEQNOTFOUND:=FALSE; 
PRINTXADDR(SEARCHADDR); 
SEARCHADDR :=SEARCHADDRH+1 ; 
COLCOUNT:=(COLCOUNT+1) MOD NUMOFCOLS ; 
IF (COLCOUNT=0) THEN 
IF (PSW='EIN') THEN PRINTCR; 
END 
ELSE 
DONE: =TRUE; 
UNTIL DONE; 


IF SEQNOTFOUND THEN PROMPTAT(22, "NICHT GEFUNDEN') 
ELSE PRINTCR; 
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WRITE(BELL); 
END; 
UNTIL CH IN ['E','e']; 
END; (*SEARCH*) 


PROCEDURE DOCHOICE; 


BEGIN 
PAGE(OUTPUT) ; ESCOK:=TRUE; 
CASE CH OF 
'D','d':DISASM; 
'u','u':EXAMINE; 
'a','a':CHANGE; 
'S', 's':SEARCHMEM; 
'"B','b':BANKCHANGE; 
'P','p':PRINT; 
'M’ ,'m' :MONITOR ;- 
END; 
ESCOK :=FALSE; 
END; 


PROCEDURE INITIALIZE; 


BEGIN 
BELL:=CHR(7); (*CTL-6*) 
EOL:=CHR(29); (CTL-]*) 
ESC:=CHR(27); (*CTL-[*) 
BS:=CHR(8); (#CTL-H*) 
CR:=CHR(13); (*CTL-M#) 


ESCOR :=FALSE; 

BANK :=1; 

PSW: Aus"; (*PRINTER SCHALTER*) 
NUMOFCOLS: =8; 

ADDR:=0; 

CSW.ADDR:=54; (*ZEICHENAUSGABESCHALTER*) 


DESET:=[ 'A' ta! 'y! In! iy! 1! 
" 'BTtpT TEN tet], ’ ’ 


PMUSET: =[ ' D', 'a!, u, 'a t ‚'B', Ip! 'M', 
IS! 'o ' „'Ä', 1. Pi ‚'p', t p','E", 21, 
CHRSET:=[' "..CHR(127)]; 


EEXSET:=['0'..'9']+['A'..'F']; 
INITDISASSEM; 

END; (*INIT*) 

BEGIN (*HAUPTPROGRAMM*) 


INITIALIZE; (*ALLES*) 


REPEAT 

PROMPTAT(O,"'PMU: D(ISASM UCNTERS '):; 
WRITE('ACENDERN P(RINTER[',PSW,'] M(ONLTOR '); 
WRITE('S(UCHEN B(ANK[',BANK,'] E(NDE'); 
CH:=GETCHAR(PMUSET); 

DOCHOICE;; 

UNTIL CH IN ['E','e']; 


END. 


SL[ISTING #2: PM PROC 
:VON RON DEGROAT 4/81 


. De ba ee a u u u Dan nn a nn nn u 


;MONITOR ROM ADRESSEN 


SETNORM .EQU OFE84 ;E/A INITIALISIERUNG 
INIT .EQU OFB2F 
SETVID .EQU OFE93 
SETKBD .EQU OFE89 


PRBYTE .EQU OFDDA ;ZEICHENAUSGABE 
COUT .EQU OFDED ;UNTERROUTINEN 
PRNTYX .EQU OF940 


PCADI  .EQU OF953 
PC .EQU 0003A ;PROGRAMMZAEHLER 
MON .EQU OFF65 ;MONITOR 


RETURN .EQU 00000 ;PASCAL RET ADDR 
ADDR .EQU 00002 ;UEBERGEBENER PARAMETER 
VAL .EQU 00004 ;UEBERGEBENER PARAMETER 


;DATEN ODER ROUTINE LADEN (MAXIMAL 256 BYTES) 


.MACRO LOAD ;FORMAT: 

LDY #00 ;LADE SOURCE,DEST,LAEN 
$1 LDA Z1,Y 

STA %2,Y 

INY 

CPY #23 

BNE $1 

„ENDM 


;ADRESSE VOM STACK HOLEN 


.MACRO POP | ;FORMAT: POP ADDR 


STA Al+l 
.ENDM 


‚ADRESSE AUF STACK ABLEGEN 
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.MACRO PUSH ;FORMAT: PUSH ADDR 
LDA %1+1 

PHA 

LDA %1 

PHA 

.ENDM 


.MACRO ROMSELECT 
STA OCO8A 
.ENDM 


.MACRO RAMSELECT 
JSR BANK 
.ENDM 


„PROC BANKIPOKE,2 
.DEF POKE 


STA 0C089 ;ERSTE 4K BANK 

;BESCHREIBBAR MACHEN 
POKE POP RETURN 

POP VAL 

POP ADDR 

LDA VAL 

LDY #00 

STA (ADDR),Y ;PORE VAL IN ADDR 

STA 0C088 ;RAM SCHREIBSCHUETZEN 
;2. BANK ANWAEHLEN 

PUSH RETURN 

RTS 


.PROC BANK2POKE,2 
.REF POKE 


STA 0CO81 ;ZWEITE 4K BANK BESCHREIBBAR MACHEN 
JMP POKE 


.PROC MONITOR 


LOAD USER,O3F8,03 ;CTL-Y JUMP 
ROMSELECT 


RET PLA ;CTL-Y ADDR LOESCHEN 
STA 0C088 ;RAM BANK1 EINSCHALTEN 
USER JMP RET 


.PROC PRINTCR 
ROMSELECT 

LDA #8D ;<RET> 
JSR COUT 

STA 0C088 

RTS 


NORMAL 
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„PROC PRINTXADDR,1 


POP RETURN 

PLA ;HOLE ADRESSE 

TAX 

PLA 

TAY 

ROMSELECT 

JSR PRNTYX ;HEX ADDR AUSGEBEN 
LDA #0AO ;EIN LEERZEICHEN AUSGEBEN 
JSR COUT 

STA 0C088 

PUSH RETURN 

RTS 


.PROC PRINTHEXBYTE,1 
.REF BANK ;WIRD VON RAMSELECT BENUTZT 


POP RETURN 

POP ADDR 

RAMSELECT 

LDY#00 

LDA (ADDR),Y ;HEX BYTE HOLEN 
ROMSELECT 

JSR PRBYTE ;HEX BYTE AUSGEBEN 
LDA #0AO ;LEERZEICHEN AUSGEBEN 
JSR COUT 

STA 0C088 

PUSH RETURN 

RTS 


„PROC PRINTCHARBYTE,1 
„REF BANK 


POP RETURN 

POP ADDR 

RAMSELECT 

LDY #00 

LDA (ADDR),Y;ZEICHENBYTE HOLEN 
ORA #80 sHI BIT SETZEN 
CMP #0A0 sCONTROLZEICHEN AUSGEBEN 
BCS NORMAL ;ZEICHEN ALS '.' 
LDA #0AE „rt 

ROMSELECT 

JSR COUT 

STA 0C088 

PUSH RETURN 

RTS 


„PROC SWITCHBANK 


„DEF BANK 


LDA BANK+1l ;0C088 IN 
EOR #08 ;0C0O80 AENDERN UND 
STA BANK+l ;UMGEKEHRT 
RTS 
BANK STA 0C088 
RTS 


„PROC DISASSEM 


.PUBLIC IC ;BEFEHLSZAEHLER 
„REF INSTDSP,BANK 


LDA IC ‚Ic 

STA PC ;NACH PC UEBERTRAGEN 

LDA IC+l 

STA PC+l 

ROMSELECT 

JSR INSTDSP ;EINEN BEFEHL DISASSEMBLIEREN 
JSR PCADJ PC ANPASSEN 


STA PC 

STY PC+1 

STA IC ‚IC ANPASSEN 

STY IC+l 

STA 0C088 ;VOR RUECKSPRUNG AUF BANKI 
RTS ; ZURUECKSCHALTEN 


„PROC INITDISASSEM 

.DEF INSTDSP 

„REF BANK 

JMP BEGIN ;KOPIERBEREICH-UEBERSPRINGEN 


‚HIER HAUPTTEIL DES ROM DISASSEMBLERS KOPIEREN, 
;DAMIT ER FUER DIE FUNKTION UNTER PASCAL 
;MODIFIZIERT WERDEN KANN 


INSDS1 .BLOCK ODF ;KOPIE BEGINNT HIER 


BEGIN ROMSELECT 
LOAD OF882,INSDS1,ODF ;KOPIEREN 


INSTDSP .„EQU INSDS1+04E 
PATCH1 .EQU INSDS1+00A 
PATCH2 .EQU INSTDSP 

PATCH3 .EQU INSDS1+H0BO 


;NOTWENDIGE AENDERUNGEN VORNEHMEN UND VIDEO INITIALISIEREN 


LOAD CHANGEI,PATCH1,03 

LOAD CHANGE2 ,PATCH2, 09 

LOAD CHANGE3,PATCH3,04 

JSR SETNORM 

JSR INIT 

JSR SETVID 

JSR SETKBD 

RAMSELECT ;LANGUAGE CARD EINSCHALTEN 
RTS 
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CHANGEIl JSR DIS1 


CHANGE2 JSR INSDS1 
PHA 
JSR DIS2 
NOP 
NOP 


CHANGE3 JSR DIS3 
NOP 


DIS1 RAMSELECT ;LANGUAGE CARD EINSCHALTEN 
LDA (PC,X) ;OPCODE BYTE HOLEN 
ROMSELECT ;ROM EINSCHALTEN 
TAY 
RTS 


DIS? ___RAMSELECT 
LDA(PC) ,Y 
ROMSELECT 
JMP PRBYTE 


DIS3 __CMP #0E8 
RAMSELECT 
LDA (PC),Y 
ROMSELECT 
RTS 


; FUNKTIONEN WERDEN VON SEARCHMEMORY 


: DIE FOLGENDEN EXTERNEN PROZEDUREN UND 
: VERWENDET 


. Le A > GE 


: FUNCTION FOUND(ADDR:INTEGER; FIRST, 
SECOND, THIRD: BYTE; 
NOTHIRD :BOOLEAN) : BOOLEAN; 


:(BYTE:0..255) 
;VON RON DEGROAT 15-JUN-80 


.FUNC FOUND, 4 


.MACRO PULL ;PARAMETER HOLEN UND RETTEN 
PLA 

STA Al 

PLA 

.ENDM 


.MACRO FIND 


LDA @SRCHADDR,Y 
CMP %1 
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THIRD 
SECOND 
FIRST 
NOTHIRD 
SRCHADDR 
ORIGIN 


LOOP 


MATCH 


NOMATCH 


NOBUMP 


BNE NOMATCH 


INY ;Y AUF NAECHSTES BYTE SETZEN 
„ENDM 

EQU 12 

.EQU 13 ;ZU SUCHENDE SEQUENZ 

.EQU. 15 


.EQU 14 ;‚DRITTES BYTE VORHANDEN ? 
.EQU 16 ;SUCHADRESSE 
.EQU 18 ;STARTADRESSE FUER SUCHE 


„PUBLIC SEARCHADDR 
POP RETURN ;PASCAL RUECKSPRUNGADRESSE 


PLA ;OFFSET UEBERSPRINGEN 
PLA 
PLA 
PLA 


PULL NOTHIRD ;PARAMETER HOLEN 
PULL THIRD ;UND WERTE SPEICHERN 
PULL SECOND 

PULL FIRST 


LDA #00 ;MSB DES FUNKTIONSERGEBNISSES AUF STACK 
PHA 

STA ORIGIN ;START BEI NULL 

STA ORIGIN+1 


LDA SEARCHADDR ;PUBLIC ADDR 

STA SRCHADDR ;ZERO PAGE ADRESSE 
LDA SEARCHADDR+1 

STA SRCHADDR+1 


LDY #00 ;Y JEDESMAL INITIALISIEREN 

FIND FIRST ;PRUEFEN OB UEBEREINSTIMMUNG 

FIND SECOND ;NUR WENN ERSTES BYTE STIMMT 

LDA NOTHIRD ;DRITTES BYTE ZU VERGLEICHEN ? 

CMP #01 

BEQ MATCH ;WENN KEIN DRITTES BYTE DANN UEBEREINSTIMMUNG 
FIND THIRD ;SONST DRITTES BYTE PRUEFEN 


LDA #01 ‚FOUND = TRUE SETZEN 
CLC ;GOTO END 
BCC END 


INC SRCHADDR ;LSB DER SUCHADRESSE ERHOEHEN 
BNE NOBUMP ;SPRUNG WENN KEIN UEBERTRAG 


INC SRCHADDR+1 ;MSB DER SUCHADRESSE ERHOEHEN 


LDA SRCHADDR+1 ;WENN MSB DER SUCHADRESSE = 
CMP ORIGIN+l ;MSB DES URSPRUNGS, 


BNE NOTDONE 

LDA SRCHADDR ;DANN PRUEFE LSB 

CMP ORIGIN 

BEQ ABORT ;WENN = DANN ABBRUCH 
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NOTDONE LDA SRCHADDR+1 ;SOFT SWITCHES UEBERSPRINGEN 


ABORT 
END 


LOOP 
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CMP #0C0 ‚$C030 BIS $C100 
BNE LOOP 

LDA SRCHADDR 

CMP #30 

BCC LOOP 

LDA #0C1 

STA SRCHADDR+1 

LDA #00 

STA SRCHADDR 


CLC 
BCC LOOP ; NOCHMAL 


LDA #00 ;RESULTAT AUF FALSE SETZEN 
PHA ;LSB DES RESULTATS AUF STACK 
LDA SRCHADDR 

STA SEARCHADDR 

LDA SRCHADDR+1 

STA SEARCHADDR+1 

PUSH RETURN 

RTS ;ZURUECK INS PASCALPROGRAMM 


.PROC MOVEBANK2 


LDA #0D0 ;(0000) = DO00 

STA O1 

LDA #20 (0002) = 2000 

STA 03 

LDA #00 

STA 00 

STA 02 

TAY 

TAX 

LDA 0C083 ;ZWEITE BANK ANSPRECHEN 
LDA (00),Y ;DO00-DFFF 

STA (02),Y ;NACH 2000-2FFF VERSCHIEBEN 
INY 

BNE LOOP 

INC 01 ;‚SEITENNUMMER DES STARTS 
INC 03 ;SEITENNUMER DES ZIELES 
INX 

CPX #10 ‚16 SEITEN UEBERTRAGEN 
BNE LOOP 

LDA 0C088 ;RAM SCHREIBSCHUETZEN 
RTS 


.END 


William Janes 


RECOVER 


PROGRAM RECOVER; 
(* VON W. JANES, 28.12.1980 *) 


(* DIESES PROGRAMM VERWENDET DIE MASCHINENNAHE PROZEDUR "UNITREAD" *) 
(* ZUM ZUM LESEN VON DATEIEN, DEREN DIRECTORY DEFEKT IST UND WURDE *) 
(* HAUPTSAECHLICH DAZU ENTWICKELT, TEXTDATEIEN WIEDERHERZUSTELLEN. *) 
(* DIE SO REKONSTRUIERTEN FILES KOENNEN AUF DEN BILDSCHIRM, DEN *) 
(* DRUCKER ODER IN EIN DISKETTENFILE GESCHRIEBEN WERDEN, AUF DIE *) 
(* DATEIEN WIRD MIT HILFE EINER ANFANGSBLOCKNUMMER UND DER ZU LESEN-*) 


(* DEN BLOCKANZAHL ZUGEGRIFFEN. NICHT ANZEIGBARE STEUERZEICHEN *) 
(* KOENNEN ENTWEDER UNTERDRUECKT ODER MIT IHREN IN KLAMMERN *) 
(* GESETZTEN ASCII-WERTEN AUSGEGEBEN WERDEN, *) 
TYPE OUTMODE = (PRNTR, CONSL, DISC); 

INMODE = 4..5; 

BLOCK = PACKED ARRAY [0..511] OF CHAR; 


CHARSET = SET OF CHAR; 

VAR START,STOP: INTEGER; 
AGAIN : CHAR; 
FILTRATION: BOOLEAN; 
INDENTBYTE: BOOLEAN; 
OUTDEVICE : OUTMODE; 
INDEVICE : INMODE; 
OUTFILE : TEXT; 
PRINTSET : SET OF CHAR; 


FUNCTION PROMPT(S:STRING; OKSET:CHARSET) :CHAR; 


VAR GOOD: BOOLEAN; 
CH: CHAR; 


BEGIN 
REPEAT 
WRITELN; 
WRITE(S); 
READ(CH); 
WRITELN; 
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UNITCLEAR (1); 
GOOD:=CH IN OKSET; 
IF NOT GOOD THEN 
WRITE(CHR(7)); 
UNTIL GOOD; 
PROMPT :=CH; 
END; 


PROCEDURE WRITEBLOCK(BLKNUM: INTEGER; BLOCKARRAY:BLOCK); 


VAR I :INTEGER; 
TEMP :CHAR; 
NOSKIP :BOOLEAN; 


BEGIN 
IF OUTDEVICE <> DISC 
THEN BEGIN 
WRITELN(OUTFILE,CHR(13)); 
WRITELN(OUTFILE, 'BLOCKNUMMER ' ‚BLKNUM); 
WRITELN(OUTFILE); 
END; 


FOR I:=0 TO 511 DO 
BEGIN 
TEMP:=BLOCKARRAY[I]; 
IF (TEMP IN PRINTSET) AND NOT INDENTBYTE 
THEN WRITE(OUTFILE,TEMP) 
ELSE BEGIN 
IF FILTRATION 
THEN INDENTBYTE:=(TEMP=CHR(16)) 
ELSE WRITE(OUTFILE, '[',ORD(TEMP),']') 


END; (*I SCHLEIFE*) 
IF OUTDEVICE <> DISC 
THEN WRITELN(OUTFILE,CHR(13), "ENDE VON BLOCK NR. ',BLKNUM); 
END; (*WRITEBLOCK*) 


PROCEDURE GETPRNTOPTION(VAR RSLT:BOOLEAN); 


VAR CH: CHAR; 
BEGIN 
WRITELN; 
WRITELN( 'AUSGABEOPTIONEN: '); 
WRITELNC ' A)LLE ZEICHEN AUSGEBEN (FALLS NOETIG,ORD-WERTE)'); 
WRITELNC ' H)ERAUSFILTERN DER NICHT DRUCKBAREN ZEICHEN'); 


CH:=PROMPT( 'IHRE WAHL ? ',['A','H']); 
RSLT:=(CH='H'); 
END; (*GETPRINTOPTION*) 


PROCEDURE INITIALIZE(VAR PRNISET:CHARSET; VAR INDEV:INMODE; 
VAR OUTDEV:OUTMODE; VAR FILTER:BOOLEAN); 


VAR SELECTION, DEVICE: CHAR; 
BEGIN 


DEVICE:=PROMPT('ZU LESENDE UNIT (4..5)? ',['4','5')); 
IF DEVICE='4' 
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THEN INDEV :=4 
ELSE INDEV:=5; . 
TER B(ILDSCHIRM D)ISKETTE ', 
P','B','D ; 
CASE SELECTION OF 
'P':BEGIN 
PRNTSET:=[CHR(32)..CHR(127),CHR(13)]; 
REWRITE(OUTFILE, 'PRINTER:'); 
OUTDEV:=PRNTR; 
GETPRNTOPTION(FILTER); 


END; 
'B':BEGIN 
PRNTSET:=[CHR(32)..CHR(127),CHR(13)]; 
REWRITE(OUTFILE, 'CONSOLE: '); 
OUTDEV :=CONSL; 


GETPRNTOPTION(FILTER) ; 
END; 

'D' :BEGIN 
PRNTSET:=[CHR(32)..CHR(127),CHR(13),CHR(16)]; 
OUTDEV:=DISC; 

FILTER :=TRUE 
END 
END (*CASE*) 


END; (*INITIALIZE*) 


PROCEDURE PROCESSBLOCKS (FIRST ,LAST:INTEGER); 


VAR BLOCKNUM: INTEGER; 
BUFFER :BLOCK; 
F :STRING; 


BEGIN 
IF OUTDEVICE = DISC 
THEN BEGIN 
WRITELN; 
WRITE( "SPEICHERN ALS? '); 
READLN(F); 
F:=CONCAT(F,'.TEXT'); 
REWRITE(OUTFILE,F); 
END; 


INDENTBYTE:=FALSE; 
(* WIRD ZUM LOESCHEN VON [INDENT] NACH DEM [DLE] ZEICHEN BENUTZT *) 


FOR BLOCKNUM:=FIRST TO LAST DO 
BEGIN 
UNITREAD(INDEVICE , BUFFER ‚512, BLOCKNUM) ; 
WRITEBLOCK(BLOCKNUM, BUFFER); 
END; (*SCHLEIFE*) 
IF OUTDEVICE=DISC THEN CLOSE(OUTFILE,LOCK); 
END; (*PROCESSBLOCKS*) 


PROCEDURE GETRANGE(VAR FIRST,LAST:INTEGER); 


VAR MAX,NUM:INTEGER; 
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BEGIN 
WRITELN; 
WRITE('START BEI BLOCK? '); 
READLN(FIRST) ; 
MAX :=280-FIRST; 
WRITELN; 
WRITE( 'BLOCKANZAHL? (1..",MAX,')..'); 
READLN(NUM) ; 
LAST :=FIRST+NUM-1; 
END; (*GETRANGE*) 


BEGIN (*HAUPTPROGRAMM*) 
INITIALIZE(PRINTSET, INDEVICE,OUTDEVICE, FILTRATION); 
REPEAT 
GETRANGE(START,STOP); 
PROCESSBLOCKS(START, STOP); 
AGAIN:=PROMPT( 'NOCH EINEN DISKBEREICH BEARBEITEN? ',['J','N']); 
UNTIL AGAIN = 'N’'; 
END. 
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Chris Wilson 


Pascal 1.1 Speicher- 
nutzung 


Die Informationen in der folgenden Tabelle sind in mehrere Abschnitte un- 
terteilt (z.B. Zero-Page-Variablen). Die Einrückung soll das Auffinden der 
einzelnen Informationen erleichtern. Indirekte Adressierung wird im folgen- 
den durch das @-Zeichen repräsentiert! 


Adresse(n) 


0000-00FF 
0050/1 
0052/3 
0054/5 
0056/7 
0058/9 
005A/B 
005C/D 
006E/0070 


0071-0073 


007E 
0080 
0096-00A2 


00BD/E 
00BF/CO 


00C1/2 
00C3/4 
00C5/6 
00D0/1 


Bedeutung 


Zero-Page mit Interpreter- und BIOS-Variablen 

BASE Basisprozedur 

MP Stackzeiger 

JTAB Sprungtabellenzeiger 

SEG Segmentzeiger 

IPC Interpreter-Programmzähler 

NP Neuer Zeiger 

KP Programm-Stack-Zeiger 

Indirekter Sprung, wird vom Interpreter benutzt (JMP 
@DOXX) 

Indirekter Sprung, der vom CSP-Befehl benutzt wird (IJMP 
@D1XX) 

NOSPEC Kontrollwort von UNITREAD/WRITE 
NOCRLEF Kontrollwort von UNITREAD/WRITE 

DLE Expansionstabelle, wird von UNITRAD/WRITE ver- 
wendet 

ZEROL u. ZEROH, zum Löschen des Speichers bei RESET 
JUMP1 u.JUMP2, Einsprungadressen beim Auftreten von 
Kontrollzeichen 

BXSIL und BXSIH 

BXS2L und BXS2H 

CKPTRL u. CKPTRH 

CHECKL u.CHECKH 
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00D2 
00D3 
00D4 
00E0 
COEI 
00E2/3. 


00E4/5 
00E6/7 
00E8/9 
00EA/B 
00EC/D 


00EE/F' 


00F0/1 
00F2/3 
00F4 

00F5 

00F6 

00F7 
00F8/9 
0100-01FF 
0200-7777 
03B1-03FF 
0400-07FF 
0800-0BFF 
0C00-777? 
0C40-0C7D 
OCTE-OCBB 
OCBC-0CF9 
OCFA-0D35 


0D36-0D71 
A988-ACI9 


A994/5 
A996/7 
A998/9 
A9YA/B 
AYA2/3 
AYA4/5 
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TTI 

NT2 

TT3 

HSMODE wird von HI-RES-Routinen verwendet 
HCMODE wird von HI-RES-Routinen verwendet 
ACJIVAFLD Zeiger auf ATTACH-Kopie des Original-BIOS- 
Sprungvektors 

RTPTR Zeiger auf Zeichen der Gerätelesetabelle 

WTPTR Zeiger auf Zeichen der Geräteschreibtabelle 
UDJVP Zeiger auf Sprungvektor für User Device 
DISKNUMP Zeiger auf Diskettennummer-Vektor 
JVBFOLD Zeiger auf BIOS-Sprungvektor vor Fold- 
Operation 

JVAFOLD Zeiger auf BIOS-Sprungvektor nach Fold- 
Operation 

BASIL u. BASIH Zeiger auf Textseite 1 

BAS2L u. BAS2H Zeiger auf Textseite 2 

CH Horizontalposition des Cursors 

CV Vertikalposition des Cursors 

TEMPI 

TEMP2 

SYSCOM (Zeiger auf SYSCOM) 

Berechnungsstack für Interpreter 

BUFFER BIOS Diskettenpuffer 

BIOS Tastaturpuffer 

APPLE Textseite 1 

APPLE Textseite 2 

Heap 

INPUT-Datei-Informationsblock 
OUTPUT-Datei-Informationsblock 
KEYBOARD-Datei-Informationsblock 
Datei-Informationsblock für SYSTEM.WRK.TEXT (falls 
vorhanden) 

Datei-Informationsblock für SYSTEM.WRK.CODE (falls 
vorhanden) 

Activation Record für Segment 0, Prozedur, 1 von 


SYSTEM.PASCAL 
Zeiger auf SYSCOM 


Zeiger auf Informationsblock der INPUT-Datei 

Zeiger auf Informationsblock der OUTPUT-Datei 

Zeiger auf Datei-Informationsblock von KEYBOARD 
Zeiger auf Informationsblock von SYSTEM.WRK.CODE 
Zeiger auf Informationsblock von SYSTEM.WRK.TEXT 


AYAC/D 
AYAE/F 
A9BO/1 
A9B2/3 
A9B4/5 
A9B6-A9BD 
A9BE-A9ICS 
A9C6-AICD 
A9CE-AI9DD 
A9DE-A9IED 
A9EE-AYIFD 
A9IFE/F 
AA02/3 
AA04/5 
AA06/7 
AA08-AAOF 
AAI10-AA17 
AA18/9 


AAIE-AA6F 
AA7T0-AA79 


AATA-AAB5 


AA86-AA8D 
AASE-AB29 


AB2A-AB41 


‘“Student‘‘-Flag aus MISCINFO 

“Slow Terminal‘‘-Flag aus MISCINFO 
Editor-Escape-Taste aus MISCINFO 

Flag für das Vorhandensein von SYSTEM.WRK.CODE 
Flag für das Vorhandensein von SYSTEM.WRK.TEXT 
Laufwerkname von SYSTEM.WRK.CODE (STRING[7]) 
Laufwerkname von SYSTEM.WRK.TEXT (STRING][7]) 
Laufwerkname von permanentem Workfile (String[7]) 
Dateiname der SYSTEM.WRK.CODE-Datei (STRING[I15]) 
Dateiname der SYSTEM.WRK.TEXT-Datei (STRING[15]) 
Dateiname der permanenten Work-Datei (STRING[15]) 
Zeiger auf leeren Heap für Benutzerprogramme 

Zeiger auf KEYBOARD-Datei-Informationsblock 

Zeiger auf OUTPUT-Datei-Informationsblock 

Zeiger auf INPUT-Datei-Informationsblock 

Standard (:) Laufwerkname (STRING[7]) 

System (*) Laufwerkname (STRING[7]) 

Tagesdatum in folgender Form: 


PACKED RECORD 
MONAT: 0..12; 
TAG : 0..31; 

JAHR : 0..99; 
END; 


Befehlszeile des Command-Levels (STRINGI[80]) 

Tabelle für Integer-Zehnerpotenzen (ARRAY [0..4] OF IN- 
TEGER) 

String mit Nullzeichen für die Verzögerung von Vertikalbe- 
wegungen - aus MISCINFO (STRING [11]) 

Ziffern (SET OF ‘°0°..‘‘9‘‘) 

Gerätetabelle 


ARRAY [0..12] OF RECORD 

GNAME: STRING [7] 

(* Gerätename *) 

CASE BLOCKIERT: BOOLEAN OF 

(* True, wenn Gerät blockiert *) 

TRUE: (LETZTBLOCK: INTEGER) 

(* Letzter Block, wenn Gerät blockiert *) 
END; 


Dateiname des SYSTEM.ASSEMBLER (STRING[23]) 
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AB42-ABS9 Dateiname des SYSTEM.COMPILER (STRING[23]) 


AB5SA-AB7] 
ABT72-AB89 
AB8A-ABAl 
ABA6-ABC5 


Dateiname des SYSTEM.EDITOR (STRING[23]) 
Dateiname des SYSTEM.FILER (STRING[23]) 
Dateiname des SYSTEM.LINKER (STRING[23]) 
Konfigurationszeichen von MISCINFO (SET OF CHAR) 


ABC6-ABDD Name der nächsten Datei von SETCHAIN aus CHAIN- 


ABDE-AC2F 
AC3A/B 
AC3C/D 
AC3E/F 
AC44/5 
ACS5A-AC6I1 
ACTO-Ac7F 
AC9IA-BDIB 


BDI1E-BD5D 
BDSE-BD9ID 
BDIE-BDDD 
BDDE-BEBB 
DEEE/F 
BDEO/1 
BDE2/3 
BDE4/5 
BDE6/7 
BDE8/9 
BDEA/B 
BDEC/D 
BDEE/F 
BDF0/1 
BDF2/3 


BDF4/5 
BDF6/7 
BDrF8-BDFF 


BE1C-BE3D 
BEIC 

BEID 

BEIE 

BE2O 

BE21 

BE22 


104 


STUFF (STRING[23]) 

Nachricht von SETCVAL aus CHAINSTUFF (STRING[80]) 
Flag, das gesetzt wird, wenn eine EXEC-Datei gelesen wird 
Flag, das beim Schreiben von EXEC-Dateien gesetzt ist 
System-Swapping-Flag 

Flag, das unmittelbar nach dem Booten gesetzt ist 
Laufwerkname von EXEC-Datei (STRING[7]) 

Dateiname von EXEC-File (STRING[15]) 

Code von Segment 0, Prozeduren 29 bis 57 von 
SYSTEM.PASCAL 

Tabelle für Interpreter-Segmentverwendungsanzahl 
Interpreter-Segmentadressentabelle 
Segmentprozedurverzeichnis für Interpreter 

SYSCOM 

Code für IORESULT 

Fehlercode für Exec Errors (Laufzeitfehler) 

Boot Unit (Kaltstart-Laufwerk) 

Debugger Status 

Zeiger auf zuletzt gelesenes Diskettenverzeichnis 

Zeiger auf EXEC ERROR Activation Record 

Kopie des Interpreter-BASE-Registers 

Kopie des Interpreter-MP-Registers 

Kopie des Interpreter-JTAB-Registers 

Kopie des Interpreter-SEG-Registers 

Zeiger auf unteres Ende des Programm-Stacks (höchste freie 
Speicheradresse) 

IPC-Kopie beim Auftreten von Laufzeitfehlern 
Breakpoint-Zeilennummer 

Breakpoint-Array für Diagnoseprogramm (Debugger) (AR- 
RAY [0..3] OF INTEGER) 

Konfigurationsparameter aus MISCINFO 

Lead-in-Zeichen für Bildschirm 

Cursor-Home-Zeichen 

Zeichen zum Löschen bis Bildschirmende 

Cursor nach rechts bewegen 

Cursor aufwärts bewegen 

Backspace-Zeichen (Linkspfeil) 


BE23 
BE24 
BE2S5 
BE28/9 
BE2A/B 
BE2C 
BE2D 
BE2E 
BE2F 
BE30 
BE31 
BE32 
BE33 
BE34 
BE35 
BE36 
BE37 
BE38 
BE3A 


BE3E-BEFD 


BF00-BFFF 
BFOA-BFOD 


BFOE 
BFOF 
BFIl 
BF12 
BF13/4 
BF15 


BF16/7 
BFi8 
BF19 
BF1A/B 


BFIC 


BF1D/E 
BFIF/20 
BF21 
BF22 


Verzögerung für Vertikalbewegungen 

Zeilenlöschzeichen 

Bildschirmlöschzeichen 

Bildschirmhöhe (Zeilenanzahl) 

Bildschirmbreite (Spaltenzahl) 

Taste für Cursorbewegung nach oben 

Taste für Cursorbewegung nach unten 

Taste für Cursorbewegung nach links 

Taste für Cursorbewegung nach rechts 

Taste für Dateiabschluß 

Flush-Buffer-Zeichen (Sperrung der Tastatureingabe) 
Break-Taste 

Stop-Taste (Eingabestop) 

Taste zum Löschen eines Zeichens 

Nicht ausgebbares Zeichen 

Taste zum Löschen einer Zeile 

Editor-Escape-Taste 

Lead-in-Zeichen für Tastatur 

Backspace (Cursor ein Zeichen nach links) 

Segmenttabelle (ARRAY [0..31] OF RECORD UNITNUM : 
INTEGER; BLOCKNUM : INTEGER; CODELENG : IN- 
TEGER END) 

Variablen für Interpreter und BIOS 

CONCKVECTOR (Zeiger auf Tastatur-Prüfungsroutine) 
SCRMODE (Wenn Bit 2 gesetzt -» Externes Terminal) 
LFFLAG (Bit 7 gelöscht -» Linefeeds auf Drucker schicken) 
NLEFT (wird für horizontalen Bildschirmscroll verwendet) 
ESCNT (Zähler für ESCAPE-Sequenzen) 

RANDL & RANDH (Startwerte für Zufallsgenerator) 
CONFLGS (Autofollow Bit = 0, Flush Bit = 6, Stop Bit = 
7) 

BREAK (Zeiger auf User-Break-Routine) 

RPTR (Zeiger auf Terminal-Leseroutine) 

WPTR (Zeiger auf Terminal-Schreibpuffer) 

RETL & RETH (Interpreter-Rücksprungadresse für BIOS- 
Aufrufe) 

SPCHAR (kontrolliert die Prüfung von Steuerzeichen) Bit 0 
gesetzt -» keine Abfrage auf Ctrl A,Z,K,W, u. E; Bit 1 gesetzt 
-» keine Abfrage auf Ctrl-S und F 

IBREAK (Zeiger auf User-Break-Routine) 

ISYSCOM (Zeiger auf SYSCOM) 

VERSION (02 = APPLE 1.1, 00 = APPLE 1.0) 
FLAVOR (01 = reguläres System) 
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BF27-BF2E 
BF2F/30 
BF56/BF7F 
BFCO/BF7F 
C000-CFFF 
D000-DFFF 
D028 

DO2C 

D683 

D69E 

D772 

D898 

D8C6 
DS8EF 

D907 

D918 

DIIC 

D923 

D930 

D950 

D97B 
D98A 
DIA4 
D9B2 

D9C3 

DIES 

DIF8 

DA07 
DAI15 
DCAO0 
DCBO 
DCC5 
DCE4 
DDF5-DD28 
DE29-DFF9 
D000-F22D 
D000-DOFF 
D100-D151 
D253 

D25F 

D267 

D296 

D29D 
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SLTTYPS (Slot-Typentabelle) 

XITLOC Zeiger auf XIT-Befehl 

Wird vom FORTRAN-Kopierschutz verwendet 
Für Fremdgeräte verfügbar 

E/A-Adressen 

BIOS-Code 

Disketten-Schreibroutine 
Disketten-Leseroutine 
Disketten-Initialisierungsroutine 
Kaltstart-Initialisierungsroutine 
Tastaturabfrage 
Terminal-Initialisierungsroutine 
Tastatur-Leseroutine 
Drucker-Initialisierungsroutine 
Initialisierungsroutine für Firmware Card 
Grafik-Initialisierungsroutine 
Initialisierungsroutine für Fernanschluß 
Initialisierungsroutine für Communications Card 
Initialisierungsroutine für serielle Schnittstelle 
Bildschirm-Schreibroutine 

Schreibroutine für Firmware Card 
Schreibroutine für Fernanschluß 
Druckerinterface-Schreibroutine 
Schreibroutine für Communications Card 
Schreibroutine für Drucker 

Leseroutine für Fernanschluß 

Leseroutine für Communications Card 
Leseroutine für Firmware Card 

Leseroutine für serielle Schnittstelle 

Routinen für Fernanschluß- und Druckerstatus 
Bildschirm-Statusroutine 
Diskettenstatusroutine 

IDSEARCH-Routine 

Indextabelle (erster Buchstabe) für IDSEARCH 
Identifikator-Tabelle für IDSEARCH 
Interpreter Code 

Häauptsprungtabelle für Interpreter 


Sprungtabelle für den Aufruf von Standardprozeduren (CSP) 


Interpreter-Hauptprogramm 

FJP (FALSE-Sprung) 

UJP (Unbedingter Sprung) 
LDCN (Lade Konstante NIL) 
LDCI (Lade Ein-Wort-Konstante) 


D2A9 
D2B6 
D2D4 
D2FA 
D318 
D325 
D343 
D369 
D387 
D3AD 
D3DB 
D401 
D426 
D44B 
D467 
D46A 
D47B 
D495 
D4C38 
D4F6 
D523 
D53D 
D557 
D56B 
D57E 
D591 
D59IE 
D62F 
D66B 
D682 
D6AO 
D6BB 
D6D9 
D6F1 
D703 
D742 
D789 
D839 
D866 
D87E 
DSCD 
D8ES5 
D907 


SLDL1..SLDL16 (Ein-Wort-Kurzladebefehl) 
LDL (Lade lokales Wort) 

LLA (Lade lokale Adresse) 

STL (Speichere lokales Wort) 
SLDO1..SLDO16 (Kurzladebefehl für lokales Wort) 
LDO (Lade globales Wort) 

LAO (Lade globale Adresse) 

SRO (Speichere globales Wort) 

LOD (Lade Hilfswort) 

LDA (Lade Hilfsadresse) 

STR (Speichere Hilfswort) 

LDE (Lade erweitertes Wort) 

STE (Speichere erweitertes Wort) 

LAE (Lade erweiterte Adresse) 
SIND1..SIND7 (Ein-Byte-Index; lade Wort) 
SINDO (Lade Wort indirekt) 

STO (Speichere Wort indirekt) 

LDC (Lade aus mehreren Worten bestehende Konstante) 
LDM (Lade mehrere Worte) 

STM (Speichere mehrere Worte) 

LDB (Lade Byte) 

STB (Speichere Byte) 

MOV (Verschiebe Worte) 

LAND (Logisches UND) 

LOR (Logisches ODER) 

LNOT (Logisches NICHT) 

XJP (Case-Sprung) 

NEW (CSP ]) 

MARK (CSP 32) 

RELEASE (CSP 33) 

XIT (Betriebssystem verlassen) 

ABI (Absolutwert einer Integerzahl) 

ADI (Addiere Integer) 

NGI (Negiere Integer) 

SBI (Subtrahiere Integer) 

MPI (Multipliziere Integer) 

SQI (Integerquadrat) 

DVI (Dividiere Integer) 

MODI (Modulo-Division von Integerzahlen) 
CHK (Überprüfe Untermengengrenze) 

LPA (Lade gepacktes Array) 

LSA (Lade konstante Stringadresse) 

SAS (Stringzuweisung) 


107 


D9I48 
DYI6B 
D987 
DI9A 
DIDI 
DAIC 
DA72 
DB20 
DB57 
DB79 
DBES5 
DC55 
DCBA 
DD92-DDD3 
DDD4 
DDD8 
DDDC 
DDEO 
DDE4 
DDES 
DF2B 
DF2F 
DF33 
DF37 
DF3B 
DF65 
E253 
E2Al 
E2BD 
E2D4 
E2F9 
E32A 
E33F 
E417 
E61C 
E626 
E630 
E63 A 
E640 
E6B2 
E6F7 
E784 
E82B 
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IXS (Indiziere Stringarray) 

IND (Statischer Index; lade Wort) 
INC (Inkrementiere Feldzeiger) 

IXA (Indiziere Array) 

IXP (Indiziere gepacktes Array) 

LDP (Lade gepacktes Feld) 

STP (Speichere in ein gepacktes Feld) 
INT (Schnittmenge) 

DIF (Mengendifferenz) 

UNI (Vereinigungsmenge) 

ADJ (Mengenanpassung) 

INN (Element auf Enthaltensein in Menge prüfen) 
SGS (Erzeuge Ein-Element-Menge) 
Maskentabelle für Operationen auf gepackten Feldern 
NEQ (Ungleich) 

GRT (Größer als) 

LES (Kleiner als) 

GEQ (Größer oder gleich) 

LEQ (Kleiner oder gleich) 

EQU (Gleich) 

LESI (Integer kleiner als) 

GRTI (Integer größer als) 

LEQI (Integer kleiner oder gleich) 
GEOQI (Integer größer oder gleich) 
NEQI (Integer ungleich) 

EQUI (Integer gleich) 

CIP (Aufruf von Hilfsprozedur) 

CLP (Lokaler Prozeduraufruf) 

CGP (Globaler Prozeduraufruf) 

CXP (Aufruf externer Prozedur) 
CBP (Aufruf einer Basisprozedur) 
RBP (Rücksprung von Basisprozedur) 
RNP (Rücksprung von Nicht-Basisprozedur) 
Segment-Leseroutine 

Lade residentes Segment (CSP 21) 
Verlasse residentes Segment (CSP 22) 
CSP (Aufruf einer Standardprozedur) 
IDSEARCH (CSP 7) 

TREESEARCH (CSP 8) 

FILLCHAR (CSP 10) 

SCAN (CSP 11) 

EXIT (CSP 4) 

BPT (Breakpoint) 


EEOE-EEA9I 


EEAD-EEBC 
EEBD-EECC 


EECD 
EEF9 

EFO04 

EFOF 

EFID 

EF27 

EFAS 

F069 

FO6E 
F22E-FE7B 
FE80-FEAF 
FEBO-FEC7 
FFOO-FF41 
FFSC-FF9D 
FFSC-FFSE 
FFSF-FF61 
FF62-FF64 
FF65-FF67 
FF68-FF6A 
FF6B-FF6D 
FF6E-FF70 
FF71-FF73 
FF74-FF76 
FF77-FF79 


HALT (CSP 39) 

TIME (CSP 9) 

MOVELEFT (CSP 2) u. MOVERIGHT (CSP 3) 
MEMAVAIL (CSP 40) 

ADR (Addiere Real-Zahlen) 

SBR (Subtrahiere Real-Zahlen) 

DVR (Dividiere Real-Zahlen) 

MPR (Multipliziere Real-Zahlen) 

SQR (Quadriere Real-Zahl) 

ABR (Absolutwert einer Real-Zahl) 

NGR (Negiere Real-Zahl) 

FLO (Übertrage nächsten Wert auf Stackanfang) 
FLT (Hole nächsten Wert vom Stackanfang) 
ROUND (CSP 24) 

TRUNC (CSP 23) 

PWROFTEN (CSP 36) 

Zehnerpotenzen-Tabelle 

Sprungtabelle zur Zeichenübertragung auf externe Geräte 
Sprungtabelle zum Lesen von Zeichen von externen Geräten 
Prüfung, ob Gerät zulässig 

IORESULT (CSP 34) 

IOCHECK (CSP 0) 

UNITBUSY (CSP 35) 

UNITWAIT (CSP 37) 

UNITSTATUS (CSP 12) 

UNITCLEAR (CSP 38) 

UNITREAD (CSP 5) 

UNITWRITE (CSP 6) 

Codesegment Nr.0, Prozeduren 1-28 von SYSTEM.PASCAL 
Sprungvektor für Benutzergerät 
Disknummernvektor 

BIOS-Sprungvektor vor Fold-Operation 
BIOS-Sprungvektor nach Fold-Operation 

Zeiger auf Tastatur-Leseroutine 

Zeiger auf Konsolen-Schreibroutine 

Zeiger auf Terminal-Initialisierungsroutine 
Zeiger auf Drucker-Schreibroutine 

Zeiger auf Drucker-Initialisierungsroutine 

Zeiger auf Disketten-Schreibroutine 

Zeiger auf Disketten-Leseroutine 

Zeiger auf Disketten-Initialisierungsroutine 
Zeiger auf Fernanschluß-Leseroutine 

Zeiger auf Fernanschluß-Schreibroutine 


109 


FF7A-FFTC 
FF7D-FF’7F 
FF80-FF82 
FF83-FF85 
FF86-FF88 
FF89-FF8B 
FF8C-FF8E 
FF8F-FF91 
FF92-FF94 
FF95-FF97 


FF98-FF9A 


FF9B-FFID 
FFF6/7 
FFFS8-FFFF 
FFF8/9 
FFFA/B 
FFFC/D 
FFFE/F 
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Zeiger auf Fernanschluß-Initialisierungsroutine 

Zeiger auf Grafik-Schreibroutine 

Zeiger auf Grafik-Initialisierungsroutine 

Zeiger auf Drucker-Leseroutine 

Zeiger auf Konsolen-Statusroutine 

Zeiger auf Drucker-Statusroutine 

Zeiger auf Disketten-Statusroutine 

Zeiger auf Fernanschluß-Statusroutine 

Zeiger auf Tastatur-Abfrageroutine 

Zeiger auf eine Routine zum Ansprung eines Treiberpro- 
gramms über eine Sprungtabelle für Benutzergeräte 

Zeiger auf eine Routine zum Ansprung eines Treiberpro- 
gramms über den Diskettennummernvektor 

Zeiger auf auf IDSEARCH 

Versionswort (0 = APPLE 1.1, 1 = APPLE 1.0) 
Vektoren 

Startvektor 

Nicht maskierbarer Interrupt-Vektor 

RESET-Vektor 

Interrupt Request und BRK-Vektor 


Mike Rosing/Keith McLauren 


Pascal Intern 


Einführung 


Das UCSD-Pascal-System, wie es von der Firma APPLE Computer Inc. für 
den APPLE verwendet und modifiziert wurde, bietet dem Benutzer sehr 
komfortable Möglichkeiten zur Programmierung von 6502-Mikro- 
computern. Leider ist die gemeinsame Verwendung von Maschinensprache 
und Pascal auf dem APPLE II nicht so bequem wie die gleichzeitige Nut- 
zung von BASIC und Maschinensprache. 

Die folgenden Fakten wurden nach der Methode ‘Versuch und Irrtum‘ 
gefunden. Wir hoffen daher, daß die Computer-Freaks, die ihren Computer 
so genau wie möglich kennen lernen wollen, eventuelle Fehler in diesem Arti- 
kel finden und berichtigen werden. 

Für jemanden, der in seiner Freizeit den Versuch unternimmt, sämtliche 
Funktionen des Pascal-Betriebssystems in seiner ganzen Komplexität auszu- 
forschen, wird daran sicherlich verzweifeln. Die folgenden Informationen 
sind daher hauptsächlich für die Assembler-Programmierer gedacht, die ihr 
Pascal-Betriebssystem besser unter Kontrolle haben wollen. 

In Teil 1 wird der Pascal-Bootvorgang im einzelnen erklärt. Er ist durch- 
aus nicht trivial. Allein durch das Verfolgen des Bootvorganges kann man ei- 
ne Menge über den APPLE Il lernen. 

Teil 2 enthält eine detaillierte Beschreibung, wie die Pascal-E/A- 
Routinen zu verwenden sind. 

In Teil 3 wird das Pascal-Disketteninhaltsverzeichnis (Directory) erklärt. 
Diese Beschreibung ist insbesondere im Zusammenhang mit Teil zwei nütz- 
lich, wenn man Programme speichern will. 

Teil 4 erklärt einfach, wie der 6502-Maschinencode zur Interpretation 
von P-Code-Instruktionen verwendet wird. In den darauf folgenden Tabel- 
len werden die Einsprungadressen für die P-Code-Instruktionen aufgelistet. 

In Teil 5 wird beschrieben, wie die Speichernutzung unter Pascal-erfolgt. 
Dabei wird auf Abweichungen der Pascal-Handbücher und der tatsächlichen 
Implementierung hingewiesen. 

Anhang 1 enthält die Adressen der P-Maschinen-Register. Zum Ver- 
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ständnis dieser Register benötigt man die Pascal-Handbücher, die mit dem 
Betriebssystem verkauft werden. 

Wer sich ernsthaft für APPLE Pascal interessiert, sollte sich BIOS besor- 
gen, das BASIC Input Output System, das von APPLE veröffentlicht wur- 
de. Die neneste Version heißt SYSTEM.ATTACH und kann bei /nternatio- 
nal APPLE Core, 910-A George St., Santa Clara, CA 95050 für $7.50 er- 
worben werden. 

Innerhalb dieses Artikels wird Version 1.1 als die ‘‘neue Version‘‘ und’ 
das Original-APPLE-Pascal als ‘‘alte Version‘‘ bezeichnet. 


Booten 


Der Bootvorgang des APPLE-Pascal erfolgt in vier Stufen. Das hängt damit 
zusammen, daß ein Teil des Bootens durch Pascal-Routinen erfolgt (vgl. 
auch APPLE Orchard, 1980: APPLE DOS Booting Process von Ted 
Burns). Die erste Stufe erfolgt durch das ROM; sie ist damit offensichtlich 
die gleiche wie bei BASIC-Disketten. In der zweiten Stufe wird 
SYSTEM.PASCAL in die 16k-Language Card geladen. In der dritten Stufe 
wird das BIOS geladen, und die P-Code-Zeiger werden initialisiert. Dabei 
wird der Interpreter aktiviert und die vierte Bootstufe in Pascal-P-Code aus- 
geführt. 

Disassembliert man die Blöcke 0 und 1, so findet man folgende Anwei- 
sung: 


08A9 6C F8 FF JMP $FFF8 


Mit 08A9 wird die zugehörige Speicherzelle (hexadezimal) bezeichnet, 6C F8 
FF ist der Maschinencode und JMP SFFFB die entsprechende, von Men- 
schen lesbare Assembleranweisung. Die Syntax wird in den Pascal- 
Handbüchern in dem Kapitel Assembler beschrieben. 

Mit dieser Sprunganweisung beginnt die dritte Stufe des Bootvorganges. 
Die angesprungene Adresse ist FEE9 (neue Version) bzw. FF65 (alte Ver- 
sion). An dieser Stelle wird das BIOS geladen und das Pascal-Betriebssystem 
in die Language Card kopiert. 

Die dritte Bootstufe, mit der die vierte Stufe geladen wird, ist in Maschi- 
nensprache geschrieben. Die vierte Stufe, die aus P-Code besteht, über- 
schreibt Teile des von Stufe 3 benutzten Speicherbereiches. In der alten 
Pascal-Version blieb die dritte Stufe im Hauptspeicher, so daß ein Warm- 
Restart möglich war; die neue Version kann dagegen nur Kaltstarts ausfüh- 
ren, da die dritte Bootstufe wichtige Zeiger initialisiert. 


Die vierte Stufe ist in Pascal geschrieben und hat in der 
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SYSTEM.PASCAL-Datei keinen eigenen Namen. Sie ist das Segment Nr.15 
der SYSTEM.PASCAL-Datei. 


Hier nun eine detaillierte Beschreibung des Bootprozesses. Sie kann mög- 


licherweise Fehler enthalten - aber das müßten Sie dann selbst überprüfen. 


) 


2) 
3) 


4) 


5) 


6) 
7) 


Das ROM-Programm springt zu Adresse C600 im ROM und liest Spur 0, 
Sektor O0 bei $800 beginnend ein. 

Sprung nach $801 und Nachladen des Rests von Bootstufe Nr. 2. 
Prüfung, ob SYSTEM.APPLE in Block zwei (Start des Directories) zu 
finden ist; falls nicht, wird die Meldung NO FILE SYSTEM APPLE auf 
dem Schirm ausgegeben und folgende Anweisung ausgeführt, die eine 
hübsche kleine Endlosschleife darstellt: 


0869 FO FE BEQ 869 


Wird SYSTEM.APPLE im Directory gefunden, so wird ein Write- 
Enable für das RAM ausgeführt. Das BIOS wird in die zweite 4k-Bank 
und E000 bis FFFF geladen. Dann wird die zweite 4k-Bank aktiviert und 
der P-Code-Interpreter geladen (wegen der Bank-Umschaltung vgl. das 
Language-Card-Handbuch). 

Für die Language Card wird ein Read-Write-Enable ausgeführt, die 
zweite 4k-Bank angeschaltet und die BIOS-Reset-Adresse D69E (neu) 
bzw. D5DD (alt) angesprungen. 

Die Speicheradressen O0 bis BFFF werden gelöscht. 

Alle Slots werden auf ROMs überprüft. Das Ergebnis dieses Tests wird 
bei der neuen Version in Adresse BF27, bei der alten Version bei BFF8 
abgelegt. Die Ergebniscodes lauten: 


0 kein ROM 

1 nicht identifizierbares ROM 

2 Disketten-Karte 

3 Communications Card 

4 serielle Schnittstelle 

5 Drucker 

6 Smart-Term-80-Zeichen-Karte (nur neue Version) 


Die Adresse plus Slotnummer ergibt den zugehörigen Code. 
Beispiel: 


BF2D 
BFFE 


02 neue Version 
02 alte Version 
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8) Der Bildschirm wird gelöscht und der Cursor auf den Bildschirm gesetzt; 
gef. vorhandene externe Geräte und die Disk-Laufwerke werden initiali- 
siert. In der neuen Version werden noch zusätzliche, kleinere Operatio- 
nen ausgeführt. 

9) Sprung nach F275 (neu) bzw. EF3F (alt). Bei der neuen Version wird der 
Bereich F275 bis F675 nach 6800 bis 6C00 verschoben. Dieser Teil wird 
dadurch überschrieben. 

10) Löschen des Stacks. Bei der neuen Version wird der Reset-Vektor auf 
D6A0 gesetzt. SYSCOM wird auf BDDE gesetzt und der Bereich BDDE 
bis BEFE (neue Version) bzw. BDDE bis BEDE (alte Version) gelöscht. 
Prüft überflüssigerweise, ob Unit #4 (Boot-Laufwerk) angeschlossen 
ist. 

11) Einlesen des Directoriess ab Adresse $6000. Danach wird nach 
SYSTEM.PASCAL gesucht (bis zu 78 mal). Wird dieser Systemteil nicht 
gefunden, so wird die Konsole initialisiert und folgendes ausgegeben: 


alte Version: nichts 
neue Version: Insert boot disk with SYSTEM. 
PASCAL on it, then press RESET 


Die neue Version ändert die RESET-Vektoren. Danach führen beide 
Versionen folgendes aus: 


DOFE BNE 696E (neu) 
DOFE BNE EF94 (alt) 


und warten sehr geduldig auf RESET. 
Nach dem RESET wird ein Sprung an die Spitze des BIOS ausgeführt 
(Schritt 5) und die ganze Sache wird wiederholt. 


12) Wird SYSTEM.PASCAL im Directory gefunden, so wird der erste 
Block (Block 0) ab Adresse $6000 eingelesen. 

13) Eine unbenannte Datei mit einer Länge von $1082 Bytes wird in die 
Adressen AC9A bis BDIB eingelesen (neue Version). Für die alte Ver- 
sion gilt: Länge: $1258, Adressen ABC3 bis BDIB. Es handelt sich dabei 
um Segment Nr.F (15). 

14) Segment Nr. 0 von SYSTEM.PASCAL wird in die Adressen F22E bis 
FE7C kopiert (alte Version: F104 bis FEFC). 

15) Der erste Activation Record für PASCALSY wird erzeugt (Segment Nr. 
0) und der IPC auf F22E’(neu) bzw. F104 (alt) gesetzt. 

16) P-Code-Sprungbefehle werden in 6E bis 73 eingelesen. 

17) Aufruf des P-Code Decoders bei D253 (neu) bzw. D243 (alt). 
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18) Vierte Bootstufe ist PASCALSY. Von hier an werden P-Code- 
Instruktionen ausgeführt. 


Die Benutzung von Disketten-ElA 


Vor einem Schreib- oder Lesezugriff auf eine Diskette müssen bei der alten 
Version acht Elemente auf den Stack geschoben (push) werden. Die neue 
Version erfordert hierfür zehn Elemente. 

Grundsätzlich gibt es zwei verschiedene Möglichkeiten für den Zugriff 
auf die Disketten-E/A-Routinen. Die erste verwendet die von APPLE in 
BIOS vorgeschlagenen Sprunganweisungen. Diese Methode funktioniert so- 
wohl mit der alten als auch mit der neuen Pascal-Version, sie erfordert ledig- 
lich ein paar zusätzliche Push-Operationen auf dem Stack. Die zweite Zu- 
griffsmethode besteht darin, die zweite 4k-Bank des BIOS zu aktivieren und 
die Diskettenroutinen direkt anzusprechen. 

Dabei müssen folgende Parameter auf dem Stack abgelegt werden: Unit- 
nummer, Blocknummer, Pufferbereich, Anzahl der zu lesenden oder zu 
schreibenden Sektoren oder Bytes und schließlich der Stack Marker. Die alte 
Version benutzt nur einen Stack Marker, die neue Version dagegen drei. Die 
Reihenfolge der Parameter auf dem Stack ist: 


1) Stack Marker (einer bei der alten, drei bei der neuen Version) 
2) Unitnummer 
3) Pufferbereich 
a) Hi-Byte 
b) Lo-Byte 
4) Anzahl der Bytes 
a) Hi-Byte 
b) Lo-Byte 
5) Blocknummer auf der Diskette 
a) Hi-Byte 
b) Lo-Byte 
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Hier ein Beispiel für das Speichern eines FOTO-Files auf der Diskette: 


.PROC SAVEFOTO 

JMP START 
;‚Fotofl ist der Anfang von HI RES Seite 1 
;Lngth ist die Laenge in Bytes der zu 
;speichernden Datei 
;Unit zeigt auf #4 (Laufwerk 1) 
;‚Blknm zeigt auf Block 6, es werden 
‚mindestens 8 Blocks benoetigt, um 
;8 K Arbeitsspeicher aufzunehmen 


FOTOFL .WORD 02000 
LNGTH .WORD OLIFFF 
UNIT .BYTE 00 
BLKNM WORD 0006 


START LDA #00 ‚Stack Marker 
PHA ;fuer 
PHA ‚neue Version 
PHA : 
LDA UNIT ‚Laufwerk, auf das 
PHA ‚geschrieben wird 
LDA FOTOFL+1 ‚High Byte 
PHA der Pufferadresse 
LDA FOTOFL szuerst 
PHA ; 
LDA LNGTH+1 ‚Ebenso bei 
PHA ;Puffergroesse 
LDA LNGTH ; 
PHA 
LDA BLKNM+1 sAuf Diskette 
PHA san sicheren 
LDA BLKNM ‚Platz ablegen 
PHA ; 
JSR OFFOF sE/A-Aufruf 
RTS 
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Alternativ dazu kann man diese Parameter auf dem Stack ablegen und fol- 
gende Befehle ausführen: 


LDA 0C083 ;BIOS einschalten 
JSR 0D028 ;neue Version 
LDA 0C0O8B ;Zurückschalten auf P-Code 


Bei der alten Version muß hier D038 eingesetzt werden. 

Für das Lesen von Disketten werden die gleichen Parameter auf dem 
Stack abgelegt. Die JSRs müssen leicht geändert werden. Denken Sie daran, 
daß das Directory unverändert bleibt, wenn Sie diese Operation ausführen. 
Seien Sie daher nicht überrascht, wenn das Pascal so gespeicherte Daten wie- 
der überschreibt. Wie das Directory aufgebaut ist, werden wir im nächsten 
Abschnitt besprechen. 


Diskette lesen FF12, DO2C (neu) 
Diskette schreiben FFOF, DO028 
Diskette lesen FF12, DO3C (alt) 
Diskette schreiben FFOF, D038 


Die DOXX-Adressen beziehen sich auf die zweite 4k-Bank. Der Aufruf der 
FFXX-Adressen schaltet die zweite 4k-Bank ein, erledigt die E/A- 
Operationen und schaltet automatisch auf die erste Bank zurück. 


Das PASCAL-Directory 


Im Gegensatz zu BASIC, das Disketten in Spuren und Sektoren einteilt, ver- 
wendet das UCSD-Pascal für Disketten eine Blockstruktur. Die von DOS 3.3 
verwendeten 16-Sektor-Disketten sind bis auf ein paar Einschränkungen mit 
Pascal kompatibel. Die beiden unterschiedlichen Sprachen verwenden das 
gleiche Diskettenformat, und Disketten, die von dem einen Betriebssystem 
formatiert wurden, können von dem anderen gelesen werden. Ein Beispiel 
dafür ist das DOS 3.3 COPY-Programm, das zum Teil aus BASIC-Befehlen 
und zum Teil aus Maschinensprache(d.h. Assembler)-Routinen besteht. Mit 
diesem Programm lassen sich auch Pascal-Disketten mit einem oder zwei 
Laufwerken kopieren, ohne daß man dazu eine formatierte Diskette 
braucht. Es gibt noch einige andere BASIC-Hilfsprogramme, die sich eben- 
falls auf Pascal-Disketten anwenden lassen. 

Das Hauptproblem beim Lesen von BASIC-Disketten unter Pascal (und 
umgekehrt) besteht darin, daß man für jeden Block, auf den zugegriffen 
werden soll, eine Umrechnung in die entsprechende Spur- und Sektornum- 
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mer vornehmen muß. Die Spurnummer erhält man durch Division durch 
acht, während man die Sektornummer in der nachstehenden Tabelle nachse- 
hen kann (s. Sektorzuordnung für APPLE-Pascal). 

Das Directory ist bei Pascal-Disketten von besonderem Interesse, da 
man, wenn man dieses Inhaltsverzeichnis kennt, Programme und Daten von 
defekten Disketten ‘‘retten‘‘ kann. Hier zunächst einige sehr allgemeine In- 
formationen. Die Diskette besteht aus 35 Spuren zu je 16 Sektoren. In Pascal 
werden diese Sektoren zu Zweiergruppen, den sog. Blöcken, zusammenge- 
faßt. Untersucht man das Directory vom BASIC aus, so erhält man einige 
Hinweise, die man für die Rettung von Daten gut gebrauchen kann. Das Di- 
rectory beginnt in Spur 0, Sektor 11 und setzt sich nach unten fort. Der nutz- 
bare Bereich befindet sich in den Sektoren 11 bis 2 (Blöcke 2 bis 5). Die Sek- 
toren 0,1,14,13 und 12 werden vom Betriebssystem zum Booten verwendet 
und sind nur für Disketten wichtig, die SYSTEM.APPLE enthalten. Die ver- 
bleibenden Blöcke 6 und 7 werden von Pascal zum Speichern von Dateina- 
men verwendet. 

Die von Pascal verwendete Sektornummerierung ist fast linear rück- 
wärts, mit Ausnahme der Blöcke O und 7 als erster und letzter Block einer 
Spur. Unter APPLE-Pascal besteht jede Spur aus acht Blöcken, denen die 
Sektornummern der Tabelle entsprechend zuzuordnen sind. Dieses Zuord- 
nungsmuster ist für alle Spuren gleich. 

Das Directory beginnt bei Block Nr.2, d.h. Spur 0, Sektor 11 und enthält als 
ersten Eintrag den Namen der Diskette und das Datum. 

Auf den Diskettennamen folgen nacheinander die Dateinamen. Bei allen 
Datei- oder Diskettennamen steht in der vorangehenden Stelle eine Hexa- 
dezimalzahl, die deren Länge angibt. Das Datum wird mit zwei Bytes codiert 
(Nr.20 und 21 werden vom Filer für das aktuelle Datum verwendet). Die By- 
tes 25 und 26 (vom Anfang jedes Directory-Eintrages aus gezählt) enthalten 
das Erstellungsdatum des jeweiligen Files. Das Datum besteht aus 16 Daten- 
bits, die sich aus der Verknüpfung der Bytes 26 und 25 ergeben. Das Jahr ist 
in den Bits 7 bis 1 von Byte 26 und der Tag in Bit O0 von Byte 26 und den Bits 
7 bis 4 in Byte 25 untergebracht. Der Monat schließlich setzt sich aus den Bits 
3 bis O aus Byte 25 zusammen. Die Datum-Informationen bestehen aus Bi- 
närzahlen, und die Monate werden durch die Zahlen 0 bis 12 dargestellt. 

Die Bytes 1 und 2 eines Directory-Eintrages enthalten die Block-Start- 
nummer, und die Bytes 3 und 4 enthalten die Block-Endnummer der zugehö- 
rigen Datei. In den Bytes 5 und 6 ist der Dateityp verschlüsselt. Die Zahlen 2, 
3 und 5 geben zum Beispiel an, ob es sich um ein Code-, Text- oder Datenfile 
handelt. Das siebente Byte enthält die Länge des Dateinamens, während der 
Name selbst in den folgenden 15 Bytes untergebracht ist. Die Bytes 23 und 24 
geben die Anzahl der im letzten Dateiblock vom File belegten Datenbytes an. 
Darauf folgt in den Bytes 25 und 26 das bereits beschriebene File-Datum. In 
allen Byte-Paaren wird das höherwertige Byte hinter das niederwertige Byte 
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gesetzt; eine *°5‘‘ wird also durch das Byte-Paar ‘‘05 00°‘ dargestellt. Der er- 
ste Dateieintrag beginnt bei Byte Nr.26 und besteht seinerseits aus 26 Bytes, 
der nächste Eintrag besteht aus den darauffolgenden 26 Bytes usw. 

Dateien werden durch Vermindern der Dateianzahl und durch Kompri- 
mieren des Directories gelöscht. Befindet sich der entsprechende Dateiein- 
trag am Ende der Dateiliste, kann das Directory nicht weiter komprimiert 
werden; deshalb wird in diesem Fall nur die Dateianzahl vermindert. Aus 
diesem Grund kann man auch Dateien wiederherstellen, wenn sie am Ende 
des Directories standen und die Disketteninformationen in der Zwischenzeit 
nicht durch Schreibzugriffe geändert wurden. Das Rekonstruieren von ge- 
löschten Dateien ist allerdings nicht mehr so einfach, wenn der entsprechen- 
de Directory-Eintrag irgendwo in der Mitte der Dateiliste stand. In diesem 
Fall muß die Lage des Files auf der Diskette entweder durch die ‘‘E(xtended 
Listing‘‘-Funktion des Filers oder durch direkte Untersuchung der einzelnen 
Diskettenblocks ermittelt werden. 


Aufbau des Pascal-Dateiverzeichnisses 


Byte-Nr. 

0-25 Diskettenname und zugehörige Informationen 
26-51 Erster Dateieintrag 

52-77 Zweiter Dateieintrag 


MOD 26 Weitere Dateien 


Disketteninformationen 


1,0 Beginn des Directories 

3,2 Nummer des letzten Directory-Blocks 
5,4 ? immer null ? 

6 Länge des Diskettennamens 
7-13 Diskettenname 

15,14 Anzahl der Diskettenblocks 
17-16 ? immer null ? 

19,18 ? immer null ? 

21,20 Aktuelles Datum 

23,22 ? immer null ? 

24-26 ? immer null ? 
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Einzelne Dateien 


1,0 Nummer des Anfangsblocks 

3,2 Nummer des Endblocks 

5,4 Dateityp: 2 = Code, 3 = Text, 5 = Data 
6 Länge des Dateinamens (Maximal 15) 
7-21 Dateiname 


23,22 Anzahl der Bytes im letzten Block 
25,24 Dateidatum 


Datum des Files 


Byte 25 Byte 24 
(7654321) (07654) (3210) 
Jahr Tag Monat 
0..99 0..31 1..12 


Sektorzuordnung für APPLE-Pascal 


Block- Sektor- 
Nummer Nummer 


0 0,14 
l 13,12 
2 11,10 
3 9,8 
4 7,6 
5 5,4 
6 3,2 
7 1,15 
(nächste 
Spur) 
8 0,14 
USW 


wenigstens 34 Mal wiederholen 
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Mit Hilfe von Record-Konstrukten läßt sich die Directory-Struktur als 
Pascal-Datentyp beschreiben. Im Byte vom Mai 1981 ist ein Programm ver- 
öffentlicht, das diese Information benutzt, um Pascal-Disketten zu katalogi- 
sieren. 


Die Funktionsweise des P-Code-Interpreters 


Hier nun unsere Interpretation, wie Pascal die P-Codes auf dem 6502- 
Mikroprozessor ausführt. Ich bewundere die Leute, die dieses Programm ge- 
schrieben haben; der Code ist sehr kompakt und effizient. 

Die erste Programmzeile ist bei der alten Version D243 und bei der neuen 
Version D253. 


LDY #00 

LDA 858,Y ; Hole P-Code. 

BPL PUSH |; Wenn kein P-Code, lege Wort auf Stack ab. 
ASL A ; Code mal zwei. 

STA 6F ; Änderung der indirekten Sprungadresse. 
JMP 006E ; Springe zu Einsprungadresse. 


Bei den Adressen 58 und 59 liegt der sog. IPC, der /nterpreter Program 
Counter. Dieser Wert ist ein Zeiger, der auf das aktuell zu verarbeitende 
Byte weist. Ist die dort stehende Zahl kleiner als 7F, dann wird sie und das 
darauffolgende Byte auf den System-Stack übertragen. Hat die Zahl einen 
größeren Wert, so wird sie mit zwei multipliziert. Der Grund hierfür ist, daß 
man für einen 16-Bit-Zeiger zwei Bytes benötigt. Das Resultat wird in der 
Zero-Page bei Adresse 6F gespeichert, die als Lo-Byte für einen indirekten 
Sprungbefehl verwendet wird. Dieser Sprungbefehl steht auf der Zero-Page 
als: 
006E 6C XX DO JMP $SDOXX 


Der Wert XX entspricht dabei dem Lo-Byte des Befehls, während DO die Sei- 
te der Lookup-Tabelle darstellt. Also ist der P-Code nur ein Index für eine 
Sprungtabelle, mit deren Hilfe der P-Code interpretiert wird. Der 6502- 
Rechner benötigt dabei für eine P-Code-Instruktion nur 24 Mikrosekunden! 

In Tabelle 1 sind die P-Code-Namen und ihre Adressen aufgelistet. Die 
P-Codes selbst werden in Ihren APPLE-UCSD-Handbüchern beschrieben. 

Zusätzlich zu diesen Op-Codes gibt es einige Spezialprozeduren 
(CSP =9E). Sie werden in Tabelle 2 aufgelistet. Es sind nicht sehr viele, und 
sie haben keine eigenen Namen. In der neuen Version gibt es eine weitere 
Prozedur bei 9E 0C. Ich überlasse es Ihnen, herauszufinden, wozu diese Pro- 
zedur benutzt wird. 
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type 
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date _record = packed record (* auf 16 Bits verteilt: *) 


month : 1..12 (* vier Bits fuer Monat *) 

day :1..3l (* fuenf Bits fuer Tag *) 

year : 0..99 (* sieben Bits fuer Jahr *) 
end; 
vol_id = string [7] (* Diskettenname z.B. APPLE3 *) 
file id = string [15] (* Filename im Directory*) 


(* Die Dateitypen werden aus einer nummerierten Liste der neun 
UCSD-Dateitypen abgeleitet. Bis auf die Typen info, graf, foto 

und secure unterstuetzt APPLE-Pascal alle diese Dateitypen. Der 
Filer kann alle Typen unterscheiden, und der Benutzer kann daher 
eigene info-, foto- und graf-Files implementieren. Man darf dabei 
jedoch nicht erwarten, da die zukuenftigen Pascal-Implementierun- 
gen mit den selbstimplementierten Dateitypen (z.B. FOTO-Dateien) 
kompatibel sind.*) 


file_type = (untyped, badblk, code, text, info, data, graf, 
foto, securedir); 

(* Hier beginnt erst der eigentliche Directory-Record, waehrend 

obige Konstruktion das Lesen erleichtert. *) 


dir record = record 
first_block integer; 
last_block integer; 


(* die beiden unterschiedlichen Typen von Directory-Eintraegen 
werden durch die CASE-Anweisung ausgedrueckt *) 


case dir_file kind : file_type of 

securedir, untyped : (* erste Variante *) 
(dir vol name : vol_id; 
zero_blocks, num_of_files, total_blocks:integer; 
last_boot : date_record); 

badblk, code, text, info, data, graf, foto : 

(* zweite Variante *) 
(dir file name : file id; 
last_byte : 1..512; 
dir file date : date_record); 
end; 


Tab. ] 


Decimal 


128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 


Mnemonic 


Location 
old new 
D698B D6BB 
EAF2 ECB2 
D6B6 D6D9 
E902 EAC2 
D548 D5S6B 
DB2C DB57 
D815 D839 
E9IIA EB5SA 
D85A D87E 
EB6F ED3F 
EB9I2 ED62 
DC2A DC55 
DAF5 DB20 
DS5B D5S7E 
D842 D866 
D71IF D742 
EA95 EC55 
D6CE D6FI 
EBOO ECCO 
DS6E D591 
DCAl DCCC 
D6EO D703 
E949 EBO9I 
DCBF DCBA 
D766 D789 
EABD EC7D 
D46B D47B 
D924 D948 
DB4E DB79 
D3F1 D401 
ESBl E6 30 
D286 D296 
DBBA :DBES5 
D24F D25F 
D96 3 D987 
D947 D9I6B 
D976 DI99A 
D333 D343 
DSC1 D8ES5 
D43B D44B 
D534 D557 
D315 D325 
DBE3 D907 
D359 D369 
DS7B D5S9E 
E2FC E33F 
E210 E253 
DDBD DDE8 
DDB5 DDEO 
DDAD DDD8 
D39D D3AD 
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Decimal Hex Mnemonic Location 


old new 

179 B3 LDC D485 D495 
180 B4 LEQ DDB9 DDE4 
181 B5 LES DDB1 DDDC 
182 B6 LOD D377 D387 
183 B7 NEQ DDA9 DDD4 
184 B8 STR D3CB D3DB 
185 B9 UJP D257 D267 
186 BA LDP D958 DAIC 
187 BB STP DA4E DA72 
188 BC LDM D4B8 D4C8 
189 BD STM D4D3 D4F6 
190 BE LDB D500 D523 
191 BF STB D51A D53D 
192 co IXP D9B5 D9D9I 
193 cl RBP E2E7 E32A 
194 Cc2 CBP E2B6 E2F9 
195 Cc3 EQUI DF3A DF65 
ı 196 c4 GEQI DFOC DF37 
| 197 c5 GRTI DFO4 DF2F 
198 c6 LLA D2C4 D2D4 
199 c7 LDCI D28D D29D 
200 C8 LEQI DFO8 DF33 
201 c9 LESI DFOO DF2B 
202 CA LDL D2A6 D2B6 
203 CB NEOQI DF10 DF3B 
204 cc STL D2EA D2FA 
205 CD CXP E291 E2D4 
206 CE CLP E25E E2Al 
207 CF CGP E27A E2BD 
208 DO LPA D8A9I D8CD 
209 D1 STE D416 D426 
210 D2 NOP D23D D24D 
211 D3 EFJ D212 DIEF 
| 212 D4 NFJ D212 D1EF 
213 D5 BPT E67E E82B 
214 D6 XIT D67D D6AO 
215 D7 NOP D23D D24D 


D299 D2A9 


D308 D318 


D45A D46A 


D457 D467 
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Die Pascal-Struktur 


Nachdem ich die APPLE-Handbücher über das UCSD-Pascal-System unge- 
fähr zehnmal gelesen hatte, war ich total durcheinander und wußte über- 
haupt nicht mehr weiter. Als ich jedoch anfing, den Maschinencode Schritt 
für Schritt nachzuverfolgen, klärten sich eine Menge Fragen. Die übrig ge- 
bliebenen Ungereimtheiten hängen im wesentlichen mit den Unterschieden 
zwischen dem UCSD-Pascal und der von APPLE implementierten Version 
zusammen. 

Nachfolgend finden Sie eine Skizze der Speichernutzung für ein beliebi- 
ges Pascal-Programm. Die wesentlichen Bestandteile des Programms sind: 
das SEGMENT DISK DICTIONARY und das SEGMENT PROCEDURE 
DICTIONARY. Das Segment Disk Dictionary liegt im Bereich BE3E bis 
BE6D und enthält Angaben über das Laufwerk, die Block-Nummer und die 
Länge jedes Programmsegments. Das Segment Procedure Dictionary liegt 
bei BDIE bis BDBD und enthält selbst-relative Zeiger auf jede Procedure- 
Dictionary-Tabelle eines Segments. 

Wozu braucht man diese Dictionaries? Wenn eine Prozedur mit dem P- 
Code aufgerufen wird, muß das Pascal-System diese Prozedur im Haupt- 
speicher finden. Dazu wird zunächst eine Sprungtabelle bei BDIE bis BD3D 
(Invocation Table) durchsucht, um festzustellen, ob sich das gewünschte 
Segment im Hauptspeicher befindet. Ist das nicht der Fall, so wird das Seg- 
ment Disk Dictionary abgesucht, um das Segment auf der Diskette zu finden 
und in den Hauptspeicher zu laden. Befindet sich das Segment schon im Ar- 
beitsspeicher, dann durchsucht das Pascal-Betriebssystem das Segment Pro- 
cedure Dictionary nach dem Prozedurverzeichnis (Procedure Dictionary) des 
benötigten Segments. 

Das Procedure Dictionary enthält seinerseits selbst-relative Zeiger auf 
den Markstack der jeweiligen Prozeduren. Durch die Verwendung derartiger 
selbst-relativer Zeiger ist das Pascal so flexibel. Im Procedure Dictionary 
sind folgende Parameter verzeichnet: die Anzahl der Prozeduren im Dictio- 
nary, die Segmentnummer und die Wortliste mit den selbst-relativen Zeigern 
auf alle Prozeduren eines Segments. Dies wird in den APPLE-Handbüchern 
auch richtig beschrieben. 

Zu jeder Prozedur gehört eine Sprungtabelle, die oft als JTAB (Jump Ta- 
ble) bezeichnet wird. An dieser Stelle stimmt die Beschreibung der Handbü- 
cher mit dem, was tatsächlich implementiert wurde, nicht überein. Die fol- 
gende Zeichnung gibt den wirklichen Sachverhalt wieder: 
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niedrige Adressen 


Lexikal. Level [Prozedur-Nr. 


Procedure 
Dictionary 
Zeiger 
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Die Interpreterzeiger für Prozedureintritt und -austritt (IC = Interpreter 
Counter) sind selbst-relative Zeiger auf den Anfang bzw. das Ende des jewei- 
ligen Prozedurcodes. Die Parametergröße muß kleiner als 255 sein, wogegen 
die Größe des Datensegments theoretisch beliebig ist. 

Um zu sehen, wozu alle diese Angaben benötigt werden, wollen wir eine 
P-Code-Anweisung verfolgen, mit der eine Prozedur aufgerufen wird. 

Das einfachste Beispiel ist CLP Nr.P, also ‘Call Local Procedure‘‘ (Auf- 
ruf einer lokalen Prozedur mit Nr.P). Dieser P-Code-Befehl speichert P zu- 
nächst in Zero-Page-Adresse Nr.78. Danach wird automatisch eine Unter- 
routine zum Aufbau eines Activation Records aufgerufen (BUILD AN AC- 
TIVATION RECORD). Diese Prozedur liegt für externe Prozeduren bei 
EOAI1 und für lokale Prozeduren bei EOBC. 

Diese Routine ist wahrscheinlich eine der wichtigsten Pascal-Prozeduren, 
denn sie bestimmt den Markstack für jede einzelne Prozedur. Da das Pascal- 
Betriebssystem selbst in Pascal geschrieben ist, ruft jede Prozedur eine weite- 
re Prozedur auf, bis schließlich eine der Kernprozeduren erreicht wird, die in 
Maschinensprache geschrieben sind. 

Beim Abarbeiten der Prozedur wird auf die übergebenen Parameter und 
die Sprungtabelle im Activation Record zugegriffen und der neue Basis- 
Adreßzeiger an das untere Ende des neuen Stapels (Pile) gesetzt. Reicht der 
Stapel über den Anfang des Heaps hinaus, so tritt ein Stack Overflow auf. 

Der dazu notwendige Code nimmt etwas weniger als einen Block Spei- 
cherplatz ein. Wenn man ihn näher untersucht, bekommt man einen plasti- 
schen Eindruck, wie effektiv Pascal tatsächlich ist. 

Eine weitere wichtige Unterroutine ist der “‘Invocation Counter‘‘ (Auf- 
rufzähler). Diese Prozedur beginnt bei E4A5. Wird ein neues Segment aufge- 
rufen, das noch nie benutzt worden ist, liest diese Unterroutine sie von der 
Diskette ein und sucht in diesem Segment nach dem lexikalischen Level 0 
und der Prozedur Nummer 0. Sind diese nicht vorhanden, so kann das zu ei- 
ner Endlosschleife führen; in diesem Fall ist das Segment aber sowieso un- 
brauchbar. 

Ist das Segment schon einmal aufgerufen worden, wird die Aufruftabelle 
an der entsprechenden Stelle um 1 vermindert, um anzuzeigen, daß das Seg- 
ment noch verwendet wird, sowie, auf welchem Level es benutzt wird. 

Im folgenden Anhang finden Sie eine Liste der benutzten Zero-Page- 
Zeiger und Tabellen. Da das Betriebssystem so komplex ist, können wir 
nicht garantieren, daß die Beschreibungen in dieser Tabelle vollständig rich- 
tig sind. Seien Sie daher vorsichtig, wenn Sie mit dem Markstack experimen- 
tieren! 
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Spezielle Prozeduren (alle mit vorabstehendem 9E (CSP)) 


Decimal 


von Bunht oO 


Hex 


:-IOTAADDOO SINN UM BPWN HMO 


Mnemonic 


NEW 
MVL 
MVR 
EXIT 


IDS 
TRS 
TIM 
FLC 
SCN 


UNUSED 


TNC 
RND 
SIN 
MATH 


MRK 
RLS 


POT 


Location 

old new 
ED26 EFO4 
D60C D62F 
E6F3 E8AO 
E6F3 E8AO 
E5SD9I E784 
EDD9 F069 
EDDE FO6E 
ESBB E63A 
ESCD E640 
E694 E841 
ESc1 E6B2 
E5SC7 E6F7 
-- - - EF27 
ES9D E61lC 
E5A7 E626 
ECOO EDDO 
EBEB EDBB 
D212 DIEF 
D648 D66B 
D65F D682 
ED1B EEF9 
ED31 'EFOF 
EC15 EDE5 
ED3F EF1D 
ED49 EFA5 
E686 E833 
E757 E904 


Niedrige Adressen 


0 
Zero-Page E 
6502 Stack 1 


76 
TE 


u 


Markstack 


6A 
Datensegment Procedure Dictionary 
| 


‚Sc 
Segment-Nummer 
sg|| Anzahl der Prozeduren 


DE 
Prozedur Aufruftabelle 


D 


74 Segment BDIE 
Procedure 
Dictonary 


BDIE 


| 


Größe des Datensegments 
Eintritts-IC 


Austritts-IC 
Parametergröße 


| 


Lexikal. Level |Prozedur-Nr. TC BDBD 
BE3E 
Segment 
Disk 
Dictionary BEED 


P-Code Interpreter 
und Systeme 


Hohe Adressen 


Abb. 1 Pascal Speicher-Adressen 
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Anhang 


Nützliche Pascal-Adressen 


Die folgenden Adressen scheinen mit den Angaben in den Pascal- 
Handbüchern übereinzustimmen. Sie gelten sowohl für die alte als auch für 
die neue Version. 


Adresse Bedeutung 


BDDE-BDFF SYSCOM 
BDDE,BDIE IORESULT 
BDEO,BDEI XEQERR 
BDE2 SYSUNIT 
BDE3 BUGSTATE 
BDE4,BDE5S GDIRP 
BDEA,BDEB STKBASE 
BDEC,BDED LASTMP 
BDEE,BDEF JTAB 
BDF0,BDFI SEG 
BDF2,BDF3 BOMBP 
BDF4,BDF5S BOMIPC 
BDF6,BDF7 HLTLN 
BDFS-BDFF BRKPTS 


Zero-Page-Zeiger 


50,51 Zeiger auf BASE Activation Record 
52,53 Markstack-Zeiger 

54,55 JTAB-Zeiger 

56,57 SEG-Zeiger 

58,59 IPC 

5SA,5B Pascal-Stack-Zeiger 

5C,5D Zeiger auf BASE-2 

SE,5SF Wort-Offset vom Stack 

64,65 Kopie von 50,51 

6E-70 Sprungtabelle für P-Codes 

71-73 Sprungtabelle für Sonderoperationen 
74,75 Zwischenspeicher 
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78 Prozedurnummer zum Aufbau des Activation Records 
TE,TF MARKSTACK 

80,81 Diskettenpuffer 

86 Segmentnummer für Activation Record 

8E,8F Speicherplatz für Rücksprungadresse 

90,91 Pascal-System 

DO0,DF Zwischenspeicher für Diskzugriffe 


Natürlich gibt es noch viel mehr Zero-Page-Adressen. Viel Spaß beim Su- 
chen! 


BE3E-BE9D Codefile-Puffer hat die Form: Laufwerk, Block-Nr., Länge 


Dabei gibt ‘“Laufwerk‘‘ die Unitnummer an, bei der das Segment zu finden 
ist. Die ‘“Block-Nr.‘‘ bezeichnet die Nummer des Diskettenblocks, bei der 
das Segment beginnt, und ‘‘Länge‘‘ gibt die Länge des Segments an. Es han- 
delt sich dabei um ein Array mit 16 mal 3 Worten, das aufgebaut wird, nach- 
dem der erste Block eines Codefiles gelesen wurde. Jede Wortgruppe bezieht 
sich dabei auf eines von maximal 16 möglichen Segmenten einer Datei. 


BDIE-BDSD Aufrufzähler-Tabelle 


Ein Aufrufzähler zeigt dem Betriebssystem an, wie oft ein bestimmtes Seg- 
ment aufgerufen wurde. Für jedes Segment werden zwei Bytes reserviert, so 
daß man ein Segment über 65000 mal aufrufen kann, bevor Probleme auf- 
treten. 


BDSE-BD9ID Weitere Datei 
BDIE-BDBD Tabelle der Segment Procedure Dictionaries 


Diese Tabelle zeigt dem Betriebssystem an, wo das zu einer Prozedur gehöri- 
ge Segment Dictionary zu finden ist. 

Die obengenannten Pufför werden von der Segment-Leseroutine (neue 
Version: E417; alte Version: E3D7) benutzt, die ein angegebenes Segment 
liest (0..F), das im Bereich BE3E-BEYID gespeichert wurde. 

Die Seiten zwei und drei ($200 bis $3FF) werden von den Disketten-E/A- 
Prozeduren zur Fehlerüberprüfung verwendet. Dort abgelegte Werte werden 
bei Lese- oder Schreiboperationen auf der Diskette zerstört. 
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Philip Ender 


PASCAL ZAP 


Dieses Programm ist eine modifizierte Version des PASCAL ZAP- 
Programms, das in der Januarausgabe 1981 von Call-A.P.P.L.E. erschienen 
ist. Dieses Programm dient dazu, jeden beliebigen Block einer 16-Sektor- 
Diskette zu lesen, zu schreiben oder zu modifizieren. Bei Programmstart er- 
scheint folgendes Befehlsmenü: 


BEFEHLSUEBERSICHT 


L(ESEN (BLOCK)) 
S(CHREIBEN ( BLOCK)) 
P(UFFER ANZEIGEN) 
D(RUCKEN DES PUFFERS) 
A(SCII AENDERN) 

H(EX AENDERN) 

N(EUES LAUFWERK]4] 
Q(UIT 


IHRE WAHL: 


Das Programm kann lesend oder schreibend auf jedes vom Benutzer angege- 

bene Laufwerk zugreifen. Standardwert ist dabei Nr.4, das Boot-Laufwerk. 

Die Befehlsmöglichkeiten sind im wesentlichen selbsterklärend. Gibt man 

vom Menü aus ein ‘‘R‘“‘ ein, so kann der Benutzer einen Diskettenblock von 

der durch die N[EUES LAUFWERK-Option vorbestimmten Diskette lesen. 

Der Block wird in einen Puffer kopiert, der hexadezimal und in ASCII- 

Schreibweise ausgegeben wird, wenn man ‘‘P‘“‘ (wie POUUFFER ANZEIGEN) 

drückt. Mit H(EX oder A(SCII AENDERN können einzelne Bytes des 

Blocks geändert werden. Die Änderungen lassen sich mit SCCHREIBEN 

(BLOCK) auf die Diskette zurückschreiben. 

Warnung: Mit PASCAL ZAP sind irreparable Diskettenmodifikationen 
nicht auszuschließen. Fertigen Sie von der Diskette, mit der Sie 
arbeiten, vor Gebrauch dieses Programms eine Sicherheitskopie 
an. PASCAL ZAP ist manchmal hilfreich beim Rekonstruieren 
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von Diskettendateien (das Directory beginnt bei Block 2). Haupt- 
sächlich wird man das Programm dazu verwenden, einzelne Dis- 
kettenblocks zu untersuchen und damit mehr über die Arbeits- 
weise des Pascal-Betriebssystems zu lernen. 


PROGRAM PASCAL_ZAP; 


( rer) 


(* *) 
(* Von Philip B. Ender *) 
(* Modifikationen von Ron DeGroat Juni '81 +) 
(* Ersterscheinung in Call-A.P.P.L.E. ‚1/81 *) 
(* *) 
Gr) 
CONST SP='! '; 

VAR 

BUF : PACKED ARRAY[O..511] OF 0..255; 


HEX_DIGIT : PACKED ARRAY[O..15 |] OF CHAR; 
HEX_BYTE : PACKED ARRAY[O..1 |] OF CHAR; 


HEX_STR : STRING[5]; 
BLK_NUM, BYTE, 

DEV_NUM, DEC, 

NUM_COLS : INTEGER; 
CHOICE, CH : CHAR; 
PRINTER_OFF : BOOLEAN; 

F : INTERACTIVE; 


PROCEDURE DEC_TO_HEX_BYTE(DEC: INTEGER); 
BEGIN 
HEX_BYTE[O]:=HEX_DIGIT[(DEC DIV 16)]; 
HEX_BYTE[1]:=HEX_DIGIT[(DEC MOD 16)] 
END; 


PROCEDURE WRITE_BLOCK; 
BEGIN 
WRITELN; WRITELN; 
WRITE('"J" EINGEBEN, WENN BLOCK GESCHRIEBEN WERDEN SOLL ', 
BLK_NUM:3,SP:2); 
READLN(CH) ; 
IF CH="J' THEN 
UNITWRITE(DEV_NUM, BUF,512,BLK_NUM,O) 
END; 


PROCEDURE READ BLOCK; 

BEGIN 
WRITELN; WRITELN; 
WRITE( 'WELCHEN BLOCK LESEN?'); READLN(BLK_NUM); 
WRITELN; 
WRITE( 'LESE BLOCK ',BLK_NUM:3); 
UNITREAD(DEV_NUM, BUF,512,BLK_NUM,O) 

END; 
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PROCEDURE DISPLAY_BUFFER; 
VAR ROW,COL: INTEGER; 


BEGIN 
ROW:=0; BYTE:=0; 
REPEAT 
WRITE(F,BYTE:3,':'); 
FOR COL:=0 TO NUM_COLS DO 
BEGIN 
DEC_TO_HEX_BYTE(BUF[BYTE+COL]); 
WRITE(F,HEX_BYTE:3) 
END; 
WRITE(F,SP); 
FOR COL:=0 TO NUM_COLS DO 
IF (BUF[BYTE+COL]>31) AND 
(BUF[ BYTE+COL ]<127) 
THEN 
WRITE(F,CHR(BUF[BYTE+COL])) 


BYTE:=BYTE+NUM_COLS+1; ROW:=ROW+1; 
IF (ROW MOD 22 = O0) AND PRINTER_OFF THEN 
BEGIN 
WRITE(F, "BLOCK ',BLK_NUM:3, 
! SP-CONT; E-EXIT'); 
READ(KEYBOARD,CH); PAGE(F); 
IF CH='"E' THEN EXIT(DISPLAY_BUFFER) 
END 
UNTIL BYTE>504; 
WRITELN(F, 'BLOCK ' ‚BLK_NUM: 3); 
IF NOT PRINTER_OFF THEN GOTOXY(7,7); 
WRITE( "WEITER DURCH TASTENDRUCK'); 
READ(KEYBOARD,CH); 
END; 


PROCEDURE PRINT_BUFFER; 
BEGIN 
CLOSE(F); (* VOR RESET F SCHLIESSEN *) 
RESET(F, '"PRINTER:'); 
NUM _COLS:=15; 
PRINTER _OFF:=FALSE; 
WRITE( "DRUCKEN. ...'); 
DISPLAY_BUFFER; 
PRINTER OFF:=TRUE; 
CLOSE(F); 
RESET(F, 'CONSOLE:'); 
NUM_COLS:=7; 
END; (*PRINT_BUFFER*) 


PROCEDURE GET_BYTE; 

BEGIN 
WRITEC'ZU AENDERNDES BYTE?'); 
READLN(BYTE); WRITELN 

END; 
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PROCEDURE ASCII_CHANGE; 
BEGIN 
GEI_BYTE; 
REPEAT 
IF (BUF[BYTE]>31) AND (BUF[BYTE]<127) 
THEN CH:=CHR(BUF[BYTE]) 
ELSE CH:=!.'; 
WRITELN(BYTE:3,': ',CH,' = CHRC' ‚BUF[BYTE],')'); 
WRITE (BYTE:3,'!: "); READ(CH); 
WRITELN; 
IF NOT EOLN THEN BUF[BYTE]:=ORD(CH); 
« BYTE:=BYTE+1 
UNTIL EOLN 
END; 


PROCEDURE HEX_STR_TO_DEC; 

VAR LO,HI: INTEGER; 

BEGIN 
HI:=SCAN(16,=HEX_STR[1],HEX_DIGIT); 
LO:=SCAN(16,=HEX _STR[2], HEX _DIGIT); 
DEC :=HI*16+LO 

END; 

PROCEDURE HEX_CHANGE; 


VAR LEN: INTEGER; 


BEGIN 
GET_BYTE; 
REPEAT 
DEC_TO_HEX „BITECBUFIBITE]); 
WRITELN(BYTE:3,': ',HEX_BYTE); 


WRITE (BYTE:3,': '); 
READLN(HEX_STR); 
WRITELN; 
LEN:=LENGTH(HEX_STR); 
IF LEN<)O THEN 
IF LEN>2 THEN 
WRITELN('HEX WERT ZU LANG!) 


IF LEN=1 THEN 
HEX_STR:=CONCAT('0',HEX_STR); 
HEX STR_TO_DEC; 
BUF[BYTE]:=DEC; BYTE:=BYTE+1 
END 
UNTIL LEN=0 
END; 


PROCEDURE SET_DRIVE; 
BEGIN 
GOTOXY(0,8); 


WRITE( 'BITTE UNIT (LAUFWERK) ANGEBEN (4..5, 9..12): 


READLN(DEV_NUM); 
END; 
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'); 


PROCEDURE SHOWMENU; 

BEGIN 
PAGE(OUTPUT); 
WRITELN; WRITELN; 
WRITELN(SP:5, 'BEFEHLSUEBERSICHT'); 
WRITELN; 
WRITELN(SP:5,'L(ESEN (BLOCK)'); 
WRITELN(SP:5,'S(CHREIBEN (BLOCK)'); 
WRITELN(SP:5,'P(UFFER ANZEIGEN'); 
WRITELN(SP:5,'D(RUCKEN DES PUFFERS'); 
WRITELN(SP:5,'"A(SCII AENDERN'); 
WRITELN(SP:5, 'H(EX AENDERN'); 
WRITELN(SP:5, 'N(EUES LAUFWERK [',DEV_NUM, ']'); 
WRITELN(SP:5,'Q(UIT'); 
WRITELN; WRITELN; 
WRITEC'IHRE WAHL: ') 

END; 


PROCEDURE INITIALIZE; 

BEGIN 

HEX_DIGIT:='0123456789ABCDEF' ; 
PRINTER_OFF:=TRUE; 
RESET(F, 'CONSOLE:'); 
NUM_COLS:=7; 
DEV_NUM:=4; 

END; 


BEGIN (*HAUPTPROGRAMM*) 
INITIALIZE; 
REPEAT 
SHOWMENU ; 
READ(KEYBOARD,CHOICE); 
PAGE(OUTPUT); 
CASE CHOICE OF 
'L':z READ_BLOCK; 
'ıs!: WRITE_BLOCK; 
"pt; DISPLAY _BUFFER; 
'D'; PRINT_BUFFER; 
'A': ASCII_CHANGE; 
'H'; HEX_CHANGE; 
'N'; SET_DRIVE 
END; 
UNTIL CHOICE='Q'; 
GOTOXY(8,8); WRITEC'DAS WAR! 'S..'); 
END, 
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Ron DeGroat 


Die narrensichere 
Befehlseingabe 


Das häufigste und lästigste Problem für Benutzer von APPLE-Pascal ist 
wahrscheinlich das der Eingabefehler. In diesem Kapitel wird daher be- 
schrieben, wie man die Eingabe von der Tastatur für jede Art von Programm 
praktisch narrensicher gestalten kann, indem man verhindert, daß unzulässi- 
ge Daten ins Programm gelangen. Darüberhinaus wird bei Verwendung der 
hier wiedergegebenen Routinen (Listing Nr.1) die Dateneingabe interaktiver, 
indem jedes eingegebene Zeichen sofort auf seine Zulässigkeit hin überprüft 
wird. 

Wartet ein APPLE-Pascal-Programm auf die Eingabe eines numerischen 
Wertes, so tritt bei versehentlicher Eingabe eines Buchstabens ein ‘‘BAD IN- 
PUT FORMAT“‘-Fehler auf. Der Computer fordert den Benutzer dann höf- 
lich auf “PRESS «SPACE» TO CONTINUE“ (Bitte «Leertaste» drücken), 
worauf das System selber aber sehr unhöflich reagiert: es re-initialisiert sich 
selbst. 

Offensichtlich nimmt das Betriebssystem Eingabe- oder Laufzeitfehler 
sehr ernst, denn es reagiert auf sie ziemlich dramatisch. Hinter diesem Ver- 
halten steckt die Idee, daß Laufzeitfehler in Pascal-Programmen eigentlich 
gar nicht auftreten dürfen. In das Betriebssystem sind etliche Sicherheitsvor- 
richtungen eingebaut, die verhindern sollen, daß ein Programm “‘abstürzt‘“. 
Normalerweise läuft ein Programm, das ohne Fehler kompiliert wurde, auch 
fehlerfrei. Eine wesentliche Ausnahme hiervon bildet die Klasse von Fehlern, 
die durch nicht erwartete Eingaben entstehen. 

Unglücklicherweise erfordern die meisten Pascal-Programme die Einga- 
be von Daten durch einen menschlichen Benutzer mit Hilfe der Tastatur. Da 
nun aber Menschen dazu neigen, Fehler zu machen, und Pascal auf solche 
Fehler heftig reagiert, ist es äußerst wichtig, über Tastatureingabe- 
Prozeduren zu verfügen, die die Eingabe unzulässiger Daten so zuverlässig 
wie nur irgend möglich verhindern. Die einfachste Lösung dieses Problems 
ist, die eingegebene Zeile nach Drücken der Return-Taste auf Zulässigkeit 
hin zu prüfen. Der interaktivere Weg besteht darin, jedes einzelne Zeichen 
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sofort nach der Eingabe auf seine Legalität hin zu testen. 

Die Tastatureingabe kann darüberhinaus verbessert werden, indem man 
mit Hilfe der Backspace-Taste (Linkspfeil) jeden einzelnen Wert korrigiert, 
bevor man ihn durch Drücken von Return dem Programm übergibt. Im 
APPLE-Pascal wird dieser Mechanismus bei der Eingabe von Strings unter- 
stützt, nicht aber bei Real- und Integer-Zahlen. Zur Lösung dieses Problems 
kann man die Daten als Strings einlesen und dann in die entsprechenden nu- 
merischen Werte konvertieren. Zusammenfassend kann man sagen, daß eine 
gute Eingaberoutine unzulässige Eingaben zur Vermeidung von Laufzeitfeh- 
lern herausfiltert, die einzelnen gedrückten Tasten jeweils auf Legalität hin 
überprüft, damit das Programmverhalten interaktiver wird, und daß die 
Zahleneingabe in Form von Strings erfolgt, so daß die Backspace-Taste zu 
Korrekturzwecken benutzt werden kann. 

Das Einlesen von Fließkommazahlen (Real-Zahlen) ist am schwierigsten 
zu realisieren (vgl. PROCEDURE GETFPNUM), da das Eingabeformat bei 
diesem Datentyp so unterschiedlich sein kann. Das erste Zeichen kann zum 
Beispiel in der Menge [‘‘0°*..*‘9*‘,*-“°,**,**] sein, danach ist jedoch die Ein- 
gabe eines Minuszeichens nicht mehr zulässig. Eine Real-Zahl darf auch nur 
einen Dezimalpunkt enthalten und eine gewisse Länge nicht überschreiten. 
Darüberhinaus darf eine solche Zahl nur in einem bestimmten, durch 
Minimal- und Maximalwerte begrenzten Bereich liegen. Beachtet man all 
diese Beschränkungen, so ist es relativ einfach, die meisten durch Eingabe- 
fehler verursachten Laufzeitfehler zu vermeiden. 

Wenn man die in Listing Nr.1 gezeigte intrinsische Unit kompiliert und in 
die SYSTEM.LIBRARY eingebaut hat, kann man sie bequem von jedem be- 
liebigen Pascal-Programm aufrufen, indem man die Deklaration ‘‘USES 
KYBDSTUFF“ angibt (also in der gleichen Weise, wie man auch auf die 
TURTLEGRAPHICS- oder APPLESTUFF-Unit zugreifen kann). Intrinsi- 
sche Units sind nicht nur einfach zu benutzen, sondern sparen auch Disket- 
tenplatz, da sie nur in der SYSTEM.LIBRARY existieren. Manchmal ist je- 
doch von der Verwendung solcher Units abzuraten, nämlich dann, wenn ein 
Programm von der SYSTEM.LIBRARY unabhängig sein soll. In diesem 
Fall sollte man reguläre Units verwenden. Kommt es wegen der Programm- 
länge zu Speicherplatzproblemen, so sollte man nur diejenigen Prozeduren 
direkt in den Programmtext kopieren, die man auch tatsächlich braucht. 

Das KYBDDEMO-Programm, das in Listing Nr.2 abgedruckt ist, zeigt, 
wie man KYBDSTUFF verwenden kann. Mit KYBDDEMO kann man auch 
testen, wie effizient die Eingaberoutinen sind. Der schnellste Weg, herauszu- 
finden, ob die Prozeduren auch wirklich absolut narrensicher sind, ist, sie 
von anderen Benutzern ausprobieren zu lassen. Vorschläge zur Verbesserung 
und Erweiterung dieser Prozeduren werden selbstverständlich gerne ange- 
nommen. 
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Durch die in Listing Nr.1 abgedruckten Prozeduren wird die Tastaturein- 
gabe sehr sicher und interaktiv. Mit ihnen kann man benutzerfreundliche 
Programme schreiben, die so gut wie immun gegen Eingabefehler sind. 

GETCHAR ist die allgemeinste und nützlichste dieser Routinen. Sie 
prüft jedes Zeichen bei seiner Eingabe auf Zulässigkeit. Dabei werden nur 
die in OKSET befindlichen Zeichen akzeptiert. Werden andere, nicht im Set 
aufgenommene Zeichen eingegeben, erfolgt eine direkte Warnung für den 
Benutzer mittels eines Lautsprechertons. Da jedes Zeichen einzeln geprüft 
wird, ist die Benutzereingabe völlig interaktiv. GETCHAR wird von den an- 
deren Routinen benutzt, um Strings, Hexadezimal-, Integer- und Realzahlen 
zu lesen. 


Zur Zeit gibt es die größeren Schwierigkeiten, die EDV zu verbessern, im 
Software- und nicht im Hardware-Bereich. Vielleicht könnte man aus den 
Bereichen der Hardware-Entwicklung etwas für die Software-Entwicklung 
lernen. 

In der Elektronik hat der integrierte Schaltkreis die Technik durch die 
Modularisierung von Grundschaltungen revolutioniert. Durch das IC, das 
einen Grundbaustein der Elektrotechnik darstellt, ließen sich komplizierte 
elektronische Geräte billiger und einfacher herstellen. Sogar einfache Schalt- 
kreise wurden durch die effizienteren, einsteckbaren Chips verbessert. 

Im Computerbereich ist eine ähnliche Revolution auf dem Software- 
Sektor nötig. Durch effiziente, gut konstruierte Software-Blöcke könnte 
man nämlich die Entwicklung von Programmen enorm vorantreiben. Mit 
hochwertigen, einsteckbaren Modulen könnte man eine Menge doppelter 
Arbeit sparen und eine ganze Reihe mittelmäßiger Routinen durch gut gete- 
stete, standardisierte Prozeduren ersetzen. Mit solchen Programmblöcken 
ausgerüstet kann dann auch ein zweitklassiger Programmierer erstklassige 
Programme schreiben. 

Es bleibt zu hoffen, daß die hier vorgestellten Routinen in APPLE- 
Kreisen einen Maßstab setzen, was die Entwicklung standardisierter 
Software-Tools mit universellen Anwendungsmöglichkeiten betrifft. Mit gu- 
ten Werkzeugen erleichtert man sich die Arbeit und erhält bessere Resultate. 
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Ger) 
(* Listing #2: KYBD DEMO *) 
(* *) 


(* von Ron De Groat *) 
(rk) 


(*$V-*) 
PROGRAM KYBDDEMO; 


USES KYBDSTUFF; 


VAR ALPHABET : SETOFCHAR; (*Typdefinition in KYBDSTUFF*) 
FLOAT_PT : REAL; 
INT_NUM, 
HEX_ VAL : INTEGER; 
HEXWORD : STRING[2]; 
ALFASTRING : STRING[10]; 
CH s CHAR; 


BEGIN 


REPEAT 

WRITELN('*** WEITER DURCH DRUECKEN EINER TASTE ***'); 
UNTIL KEYPRESS; 
READ(KEYBOARD,CH); (*Zum Loeschen des Tastendrucks*) 


PAGE(OUTPUT); 
PROMPTAT(O, 'VERSUCHEN SIE, UNZULAESSIGE WERTE EINZUGEBEN.'); 


ALPHABET:=['A'..'2Z']; 


PROMPTAT(4, 'GEBEN SIE EIN MAXIMAL DREISTELLIGES BUCHSTABENSTRING EIN: '); 
GETSTRING(ALFASTRING, ALPHABET, 3); 


WRITELN; 

INT_NUM:=GETINTEGER('INTEGER (-1<I<100): ',100,-1); 

WRITELN; 

FLOAT_PT:=GETFPNUM( 'FLIESSKOMMAZAHL (0.1<2<9.999): ',9.999,0.1); 
WRITELN; 

HEX_VAL:=GET_HEX_VALC'HEX ADDR: ',4); 

INTTOHEX (HEXVAL ,HEXWORD) ; 


WRITELN('HEX WERTE WERDEN ALS INTEGERZAHLEN ZURUECKGEGEBEN: ',HEXVAL); 
WRITELN('UND KOENNEN WIEDER IN HEX UMGEWANDELT WERDEN: ',HEXWORD); 


WRITELN; 
HEX_VAL:=GETHEXVALC'HEX BYTE: ',2); 
WRITELNC'HEX WERT: ',HEX_VAL); 


END, 
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FREIE) 


(* *) 
(* Listing #1: KYBDSTUFF *) 
+ +) 
(* Von Ron DeGroat Juli 1981 *) 
(* *) 


FETTE RISK KEE) 


(*$S+,V-*) 
UNIT KYBDSTUFF; INTRINSIC CODE 25 DATA 26; 


(* Durch Loeschen von "INTRINSIC...26;'" wird KYBDSTUFF zur 
regulaeren Unit. Solche Units koennen mit dem Linker 
explizit in ein Hauptprogramm eingebunden werden. In- 
trinsische Units muessen in die SYSTEM.LIBRARY eingefuegt 
werden. *) 


INTERFACE 
TYPE SETOFCHAR = SET OF CHAR; (* Muss fuer Parameterliste deklariert werden *) 
(* Die folgenden Befehle koennen vom Hauptprogramm in WRITE-Anweisungen *) 


(* verwendet werden. Die Variablennamen duerfen nicht im Hauptprogramm *) 
(* erneut deklariert werden. *) 


VAR CR, (*Carriage return (Wagenruecklauf) *) 
BS, (*Back space (Rueckwaertstaste) *) 
EOL, (*Loeschen bis Zeilenende *) 
EOS, (*Loeschen bis Bildschirmende *) 
BELL:CHAR; (*Piepton *) 


FUNCTION GET_CHAR(OKSET:SETOFCHAR) ;CHAR; 

PROCEDURE GETSTRING(VAR S:STRING; OKSET: SETOFCHAR; MAXLEN: INTEGER) ; 
FUNCTION GET_HEX_VAL(PROMPT: STRING; MAXLEN: INTEGER): INTEGER; 
FUNCTION HEX_TO_INT(HEXSTR:STRING):INTEGER; 

PROCEDURE INT TO HEX(INT;INTEGER; VAR HEX_STR:STRING); 

FUNCTION FP_NUM(FP_STR:STRING): REAL; 

FUNCTION GET_FP_NUM(PROMPT:STRING; MAXVAL, MINVAL:REAL):REAL; 
FUNCTION GET_INTEGER(PROMPT: STRING; MAXVAL, MINVAL:INTEGER): INTEGER; 
PROCEDURE PROMPTAT(LINE:INTEGER; MESSAGE: STRING); 

FUNCTION KEYPRESS:BOOLEAN; 


IMPLEMENTATION 

VAR HEXDIGIT :PACKED ARRAY[O..15] OF CHAR; 
GERRRRRRRRRERRRRREPPRIBIRRIREE) 
(* LIEST OKSET-ZEICHEN, BEI ALLEN ANDEREN PIEPT'S *) 
GRRREERRRRRRRREERPERRROPREKF) 


FUNCTION GET_CHAR(*(OKSET:SETOFCHAR) :CHAR*) ; 


VAR CH :CHAR; 
GOOD :BOOLEAN; 


143 


BEGIN 

REPEAT 
READ(KEYBOARD,CH); 
IF EOLN(KEYBOARD) THEN CH:=CR; 
GOOD:=CH IN OKSET; 
IF NOT GOOD THEN WRITE(BELL) 

ELSE IF CH IN [' '..CHR(125)] 
THEN WRITE(CH); 
UNTIL GOOD; 
GET CHAR:=CH; 


END; 


RER) 


(* LIEST STRING MIT LAENGE "MAXIMUM" UND ZEICHEN AUS "OKSET" *) 
Ger) 


PROCEDURE GETSTRING(*VAR S:STRING; OKSET:SETOFCHAR; MAXLEN: INTEGER*) ; 


VAR S1 :STRING[1]; 
STEMP :STRING; 
LEN :INTEGER; 


FIRSTCHAR :BOOLEAN; 
LASTCHAR :BOOLEAN; 
GETSET :SETOFCHAR; 


BEGIN 
Sl:=" '; STEMP:="!"; 
IF MAXLEN<1 THEN MAXLEN:=1 
ELSE IF MAXLEN>255 THEN MAXLEN:=255; 
REPEAT 
LEN: =LENGTH(STEMP); 
FIRSTCHAR:=(LEN=0); 
LASTCHAR :=(LEN=MAXLEN) ; 


IF FIRSTCHAR THEN GETSET:=OKSET 
ELSE IF LASTCHAR THEN GETSET:=[CR,BS] 
ELSE GETSET:=OKSET+[CR,BS]; 


S1[1]:=GETCHAR(GETSET); 


IF Sı[ı1] IN OKSET THEN STEMP:=CONCAT(STEMP,S1) 
ELSE IF S1[1]=BS THEN 
BEGIN 
WRITE(BS,' ',BS); 
DELETE(STEMP,LEN,1); 
END; 
UNTIL S1i[1]=CR; WRITELN; 
S:=STEMP; 
END; 


Geh RRERRRRPRREE) 


(* GIBT NACHRICHT "MESSAGE" IN ZEILE "LINE" AUS *) 
Ger) 
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PROCEDURE PROMPTAT(#*LINE:INTEGER; MESSAGE:STRING*) ; 
BEGIN 

GOTOXY(0,LINE); 

WRITE(MESSAGE,EOL); 

END; 


(* KONVERTIERT INTEGERZAHL, IN HEX STRING *' 


* KONVERTIERT INTEGERZAHL IN HEX STRING * 
Ger) 


PROCEDURE INT_TO_HEX(*(INT:INTEGER; VAR HEX_STR:STRING)*); 
VAR HIBYTE,LOBYTE :INTEGER; 


BEGIN 
HEX_STR:="'0000'; 


IF INT<O THEN 
BEGIN 
INT:= INT+32767+15;; 
HIBYTE:= (INT DIV 256) +128; 
END 
ELSE 
HIBYTE:= INT DIV 256; 
LOBYTE:= INT MOD 256; 


HEXSTR[1]:= HEXDIGIT[HIBYTE DIV 16]; 
HEXSTR[2]:= HEXDIGIT[HIBYTE MOD 16]; 
HEXSTR[3]:= HEXDIGIT[LOBYTE DIV 16]; 
HEXSTR[4]:= HEXDIGIT[LOBYTE MOD 16]; 


WHILE (HEXSTR[1]='0') AND (LENGTH(HEXSTR)>1) DO DELETE(HEXSTR,1,1); 


END; 


erRRCRRERIRIEK) 


(* CONVERTIERT HEX STRING IN INTEGER *) 
Ge) 


FUNCTION HEX_TO_INT(*(HEXSTR :STRING) : INTEGER*) ; 


VAR I,NUM,DIGIT :INTEGER; 


NUM: =0; 
FOR I:=1 TO LENGTH(HEXSTR) DO 
BEGIN 
DIGIT:=SCAN(16,=HEXSTR[I],HEXDIGIT); 
NUM: =NUM*16+DIGIT; 
END; 
HEX_TO_INT:=NUM; 
END; 


AT EEEI IE KEC HK E EC K) 


(* LIEST HEX-ZAHL UND LIEFERT INTEGERWERT *) 
Gear) 


FUNCTION GET_HEX VAL(*(PROMPT:STRING; MAXLEN:INTEGER) :INTEGER*); 
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VAR HEXSET :SETOFCHAR; 
HEX_STR :STRING; 


BEGIN 
WRITE(PROMPT,EOL); 
HEXSET:=['0'..'9','A'..'F']; 
IF MAXLEN>4 THEN MAXLEN:=4; 
GETSTRING(HEX_STR,HEXSET ,MAXLEN); 
GET_HEX_VAL:=HEX_TO_INT(HEX_STR); 
END; 


GRRERERRRERERRRRERREKIERRIKE) 
(* CONVERT FLIESSKOMMA-STRING IN REALWERT *) 


( RP) 
FUNCTION FP_NUM(*(FP_STR:STRING):REAL*); 


VAR POWER ,SICN,I ‚INTEGER; 


NUM :REAL; 
BEGIN 
IF FP_STR[1]='-' THEN 
BEGIN 
SIGN:=-1; 
DELETE(FP_STR,1,1); 
END 


ELSE SICN:=1; 


POWER :=POS('.' ,FP_STR); 
IF POWER<>O THEN 
BEGIN 
DELETE(FP_STR,POWER,1); 
POWER:=LENGTH(FP_STR)-POWER+L; 
END; 


NUM:=0; 

FOR I:=1 TO LENGTH(FP_STR) DO 
NUM:=10*NUM+(ORD(FP_STR[I])-ORD('0')); 

FP_NUM:=SIGN*NUM/PWROFTEN(POWER); 


END; 
RR) 


(* WIRD VON GET_FP_NUM AND GET_INTEGER BENUTZT *) 
Gare) 


FUNCTION GET_NUM(MAXVAL,MINVAL:REAL; PT_OK:BOOLEAN) :REAL; 


VAR FIRSTCHAR, LASTCHAR :BOOLEAN; 
NUMSET, GETSET, OKSET :SETOFCHAR; 


NUM _STR_TEMP :STRING[ 10]; 

Sl :STRING[1]; 

LEN, MAXLEN : INTEGER; 

NUM :REAL; 
BEGIN 


NUMSET:=[ '0'..'9']; 
IF MINVAL<O THEN OKSET:=NUMSET+[ '-'] ELSE OKSET:=NUMSET; 
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IF PT_OK THEN MAXLEN:=8 ELSE MAXLEN:=7; 
Sl:="""; NUM_STR_TEMP:=''; 
REPEAT 
LEN:=LENGTH(NUM_STR_TEMP); 
FIRSTCHAR:=(LEN=0); 
LASTCHAR :=(LEN=MAXLEN) ; 


IF PT_OK THEN OKSET:=OKSET+['.'] 
ELSE OKSET:=OKSET-['.']; 


IF FIRSTCHAR THEN GETSET:=OKSET 
ELSE 
IF LASTCHAR THEN GETSET:=[CR,BS] 
ELSE GETSET:=OKSET+[CR,BS]-['-'"]; 


S1[1]:=GET_CHAR(GETSET); 
IF Sl='.' THEN PT_OK:=FALSE; 


IF S1[1] IN OKSET THEN 
BEGIN 
NUM_STR_TEMP:=CONCAT (NUM_STR_TEMP,S1); 
IF Sı[1]J IN NUMSET THEN 
BEGIN 
NUM:=FP_NUM(NUM_STR_TEMP); 
IF (NUM>MAXVAL) | OR TNUM<MINVAL) THEN 
BEGIN 
WRITE(CHR(7)); 
WRITE(BS,' ',BS); 
DELETE(NUM_STR_TEMP,LEN+1,1); 
END; 
END; 
END 


ELSE IF S1[1]=BS THEN 
BEGIN 
IF POSC'.',NUM_STR_TEMP)=LEN THEN 
PT_OK:=TRUE; 
WRITE(BS,' ',BS); 
DELETE(NUM_STR_TEMP,LEN,1); 
END; 


UNTIL S1[1]=CR; WRITELN; 
GET_NUM:=FP_NUM(NUM_STR_TEMP); 


END; (*GET_NUM*) 


( FREE PR RR Rkselefekieieletekaßieksick) 


(* LIEST FLIESSKOMMAZAHL IM BEREICH VON "MIN" BIS "MAX" *) 
Ge) 


FUNCTION GET_FP_NUM(*(PROMPT:STRING; MAXVAL,MINVAL:REAL) :REAL*); 
YAR POINT_OK :BOOLEAN; 
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BEGIN 
WRITE(PROMPT,EOL); 
POINT_OK:=TRUE; 
GET_FP_NUM:=GET_NUM(MAXVAL ‚MINVAL, TRUE); 
END; 


FREE RERPPREERRRRRRRIRRRRRRRIRIRTI CK) 


(* LIEST INTEGERZAHL IM BEREICH "MIN" BIS "MAX" *) 
(3atatatalaateiaialalgglakataistoaalgielefelalefgkakgkgigggkekgifeg8kafgkggefelageksknik) 


FUNCTION GET_INTEGER(*(PROMPT:STRING; MAXVAL,MINVAL:INTEGER):INTEGER*) ; 
VAR POINT_OK:BOOLEAN; 


BEGIN 

WRITE(PROMPT ,EOL); 

POINT_OK:=FALSE; 

GET_INTEGER :=TRUNC(GET_NUM(MAXVAL ,MINVAL, FALSE) ); 
END; 


Ge gagblbfpfelelelalelbk) 
(* PASCAL VERSION DER KEYPRESS-FUNKTION *) 
(* FUNKTIONIERT GGF. NICHT MIT EXTERNER *) 


(* KONSOLE BZW. 80 ZEICHEN-KARTE *) 
Grblskteiplsnlgiksgigsiskekseieigieleleletefgkskiolelglekikicikick‘) 


FUNCTION KEYPRESS(*:BOOLEAN*) ; 


TYPE BYTE-=0..255; 
PA=PACKED ARRAY[O..1] OF BYTE; 


VAR MEMREF:RECORD CASE BOOLEAN OF 
TRUE: . (ADDR:INTEGER); 
FALSE: (BYTE: "PA); 
END; 
RPTR,WPTR,KEYBD:BYTE; 


BEGIN 
MEMREF.ADDR:=-16384; (*KEYBOARD INPUT PORT*) 
KEYBD:=MEMREF.BYTE’[O]; 


MEMREF.ADDR:=-16616; (*PUFFERZAEHLER*) 
RPTR:=MEMREF.BYTE“[0]; (*INPUT *) 
WPTR:=MEMREF.BYTE*[1]; (*OUTPUT*) 
KEYPRESS:=(KEYBD > 127) OR (RPTR <> WPTR); 
END; 
BEGIN (*HAUPTPROGRAMM*) 
CR:=CHR(13); (*ct1-M*) 
BS:=CHR(8); (*ct1-H*) 
EOL:=CHR(29); (*ct1-]*) 
EOS:=CHR(11); (*etl-K*) 
BELL:=CHR(7); 
HEXDIGIT:='0123456789ABCDEF' ; 


END. 
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Allen W. Todd 


Aufbau eines Pascal- 
Disk-Directories 


Haben Sie schon einmal versucht, von einem Programm aus auf das Datei- 
verzeichnis einer Pascal-Diskette (Directory) zuzugreifen? Das ist eigentlich 
ganz einfach, wenn man zwei Dinge weiß: a) wo sich das Directory befindet, 
und b) wie das Directory aufgebaut ist. Die Antwort auf die erste Frage läßt 
sich ziemlich leicht herleiten. Wenn man sich mit dem Filer ein E(rweitertes 
Listing einer Diskette ausgeben läßt, stellt man fest, daß die erste Datei bei 
Block 6 beginnt. Damit bleiben die Blöcke O bis 5 als wahrscheinlicher Platz 
für das Directory übrig. Tatsächlich liegt das Dateiverzeichnis in den 
Blöcken 2 bis 5; die Blöcke 0 und 1 werden für den zweiten Teil des Bootvor- 
ganges benötigt. Die eigentliche Directory-Struktur läßt sich nicht ganz so 
leicht erkennen. Hat man diese jedoch erst einmal herausgefunden, besticht 
sie durch ihren eleganten, gleichzeitig jedoch einfachen, Aufbau. 

Die Struktur eines UCSD-Pascal-Directories wird in den Deklarationen 
von Tabelle 1 dargestellt. Danach besteht ein Pascal-Directory aus O bis 77 
varianten Records des Typs ‘““direntry‘‘. Directory-Einträge werden sequen- 
ziell gespeichert und beginnen auf jeder Diskette in Block 2. Jeder Eintrag 
besteht aus einem varianten Record, der zwei mögliche Varianten hat. Die 
aktuelle Variante wird durch ihr Tag-Feld bestimmt. Bei ““direntry‘‘ ist die- 
ses Tag-Feld dfkind (filetype). Ist der Dateityp ‘‘volume‘‘ oder ‘‘secure‘‘, 
handelt es sich bei dem Directory-Eintrag um Informationen, die die gesam- 
te Diskette betreffen. Dieser Eintrag ist der erste Directory-Eintrag (direntry 
[0]) und enthält die in Tabelle 2 aufgelisteten Informationen. 

Wie man diese Informationen benutzen kann, zeigt Ihnen die FUNC- 
TION ‘‘getdirectory‘‘ in dem nachstehenden Programmlisting. Diese Funk- 
tion versucht, das Directory von Laufwerk ‘‘dunit‘‘ zu lesen. Wenn ‘‘getdi- 
rectory‘‘ ein Pascal-Dateiverzeichnis auf ‘‘dunit‘‘ findet, liefert es einen Zei- 
ger auf das Directory und aktualisiert die Stringvariable ‘‘vname‘‘, die da- 
nach den Namen der gefundenen Diskette enthält. Wird kein Directory ge- 
funden oder kann das Directory nicht gelesen werden, so wird dem Zeiger 
der Wert ‘“‘nil‘‘ zugewiesen und “‘vname‘“‘ nicht aktualisiert. Wenn man fest- 
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stellt, daß ein Directory gelesen wurde, kann man den Zeiger benutzen, um 
auf die gewünschten Directory-Informationen zuzugreifen. 


Tab. 1 
TYPE 
vid = string [7] (Diskettenname) 
fid = string [15] (Dateiname) 
daterec = PACKED RE- 
CORD (Datum-Record, 16 Bits) 
mo: 1..12; 
day : 1..31; 
year: 0..99; 
END; 
filekind = (vol, (Eintrag des Diskettenna- 
mens) 
badfile, (Datei mit defekten Disket- 
tenblöcken) 
code, (Codedatei, vom Rechner 
ausführbar) 
text, (Textdatei, normal lesbar) 
info, (Informationsdatei, für De- 
bugger) 
data, (Datendatei) 
graf, (Grafische Vektoren) 
foto, (HI-RES-Bild) 
secure); (Nicht benutzt) 
direntry = RECORD 
dfirstblock : INTEGER; (Erster Dateiblock) 
dlastblock : INTEGER; (Letzter Dateiblock) 
CASE dfkind : filekind OF (Dateityp) 
vol, secure : (Variante für Laufwerksein- 
trag) 
(dvid : vid; (Diskettenname) 
deovbik : INTEGER; (Anzahl der Blöcke) 
dfilenum : INTEGER; (Anzahl der Dateien) 
ddummy : INTEGER; (Dummy) 
dlastboot :daterec); (Datum des letzten Bootvor- 
gangs) 
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badfile, code, 
text, info, data, 


graf, foto : 
(dfid : fid; 
dlastbyte 1..512; 
daccess : daterec); 
END; (direntry) 
directory = ARRAY [0..77] O 
direntry; (max. 77 Da- 
teien pro Disk) 
Tab. 2 
Feld Datentyp 
Erster Block des Disketten- 
eintrags Integer 
Letzter Block des Disket- 
teneintrags Integer 
Eintragstyp (filekind) Integer 
Diskettenname String [7] 
Anzahl der Blöcke auf der 
Diskette Integer 
Anzahl der Dateien auf der 
Diskette Integer 
Dummy (nur zum Platzauf- 
füllen) Integer 


Datum des letzten Bootens Daterec 


(Variante für Dateieinträge) 
(Dateiname) 


(EOF-Byte) 
(Datum des letzten Zugriffs) 


Typischer Wert 


0 

6 

O0 oder 8 
“APPLEI“ 


280 


0 
(beliebiges Datum) 


Die übrigen Directory-Einträge enthalten Informationen über die einzelnen 
auf der Disk gespeicherten Dateien. Siehe Tabelle 3. 
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Tab. 3 


Feld 


Erster Block der Datei 
Letzter Block der Datei 


Dateityp (filekind) 


Dateiname 


Anzahl der Bytes im letzten 


Block 


Datentyp 


Integer 
Integer 
Integer 
String [15] 


Integer 


Datum der letzten Änderung Daterec 


Daten 
Marker 


Marker- 
Adressen 


Auto indent 
Filling 
Token def. 


Linker Rand 
Rechter 
Rand 
Absatzrand 
Befehlszei- 
chen 
Anfangsda- 
tum 

Monat 

Tag 

Jahr 
Letzter Zu- 
griff 
Monat 

Tag 

Jahr 
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Start- 
Byte 


A 


94 


114 


116 


118 


120 


122 
124 


126 


128 


130 


83 


113 


115 


117 


119 


121 


123 
125 


127 


129 


131 


80 


20 


Typischer Wert 


“SYSTEM.APPLE“ 


512 


(beliebiges Datum) 


End- Länge Format 
Byte 
Packed Char. 


Integer 
Boolean 
Boolean 
Boolean 
Integer 


Integer 
Integer 


Integer 


Packed Rec. 


Packed Rec. 


Bemerkungen 


10 mal, jedes Ele- 
ment mit 8 Bytes 


10 mal, jedes Ele- 
ment mit 2 Bytes 
Nur Hi-Bit wird 
benutzt 
Nur Hi-Bit wird 
benutzt 
Nur Hi-Bit wird 
benutzt 


erste vier Bits 
nächste fünf Bits 
letzte sieben Bits 


erste vier Bits 
nächste fünf Bits 
letzte sieben Bits 


PROGRAM DIR; 
TYPE 
pointer = "directory; 
vid = string[7]; 
fid = string[15]; 
daterec = PACKED RECORD 
mo: 1..12; 
day: 1..31; 
year: 0..99; 


filekind = (vol, badfile, code, text, info, data, graf, foto, secure); 
direntry = RECORD 

dfirstblock: INTEGER; 

dlastblock: INTEGER; 

CASE dfkind: filekind OF 


vol, secure: (dvid: vid; 
deovblk: INTEGER; 
dfilenum: INTEGER; 
ddumny: INTEGER; 


dlastboot: daterec); 
badfile, code, text, info, data, graf, foto: 


(dfid: fid; 
dlastbyte: 1..512; 
daccess: daterec) 


END; 
directory = ARRAY[0..77] OF direntry; 


VAR 
dirptr: "directory; 
I, device: INTEGER; 
volname: string; 


FUNCTION getdirectory ( dunit: INTEGER; VAR vname: string):pointer; 


BEGIN 
getdirectory:=NIL; 
new(dirptr); 
(*$I-*) 
unitread (dunit,dirptr”,sizeof(directory),2); 
(*$I+*) 
IF ioresult = O 
THEN WITH dirptr”[O] DO 
BEGIN 
IF (dfkind IN [vol,secure]) 
AND (dfirstblock=O) 
AND (dlastblock=6) 
THEN 
BEGIN 
vname:=dvid; 
getdirectory:=dirptr; 
END; 
END; (*with*) 
END; (*getdirectory*) 
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BEGIN (*Hauptprogramm*) 
write( "Directory von welchem Laufwerk lesen: '); 
readln(device); 
IF getdirectory(device,volname)=NIL 
THEN writeln('Directory nicht gefunden') 
ELSE BEGIN 
writeln(volnane, ': '); 
FOR I:;= 1 TO dirptr” [0O].dfilenum DO 
WITH dirptr”’[I], daccess DO 
BEGIN 
WHILE length(dfid)<15 DO dfid:=concat(dfid,' '); 
writeln(dfid,dlastblock-dfirstblock:4, 
mo:4,'/',day:2,'/',year:2,dfirstblock:5); 
END; 
END; 
END. 
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Alan J. Nayer 


Der Textdatei-Kopf 


Viele Benutzer des APPLE-Pascal-Betriebssystems und der Sprache Pascal 
sind mit dem Format vertraut, in dem Textdateien gespeichert werden. Be- 
sonders diejenigen unter Ihnen, die Programme geschrieben oder den Editor 
zur Textverarbeitung benutzt haben, werden mit dem grundsätzlichen Auf- 
bau von Textdateien vertraut sein. 

Dieses Kapitel setzt ein allgemeines Wissen über das Textdatei-Format 
und Kenntnisse über die ‘‘Environment‘‘-Parameter des Pascal-Editors vor- 
aus. Zur Auffrischung Ihrer Kenntnisse schlage ich vor, sich den kurzen Ab- 
schnitt über Textdateien im “APPLE Pascal Operating System Reference 
Manual‘ (S.266 in der aktuellen Ausgabe) durchzulesen. Das Handbuch be- 
schreibt allerdings nicht, wie die Textdatei-Kopfseite aufgebaut ist; ich 
möchte daher im folgenden etwas näher darauf eingehen. 

Textdateien bestehen aus sog. Seiten, wobei eine Seite zwei aneinander- 
grenzende Diskettenblocks enthält; da ein Block 512 Bytes umfaßt, ent- 
spricht dies 1024 Bytes. Textdateien bestehen immer aus einer ganzen Anzahl 
von Seiten, sie setzen sich daher auch immer aus einer geraden Block-Anzahl 
zusammen. Die erste Seite ist der Textkopf, der fast vollständig leer ist und 
vom Betriebssystem mit binären Nullen gefüllt wird: Tatsächlich enthält nur 
rund ein Achtel des Textkopfes sinnvolle Informationen. 

Diese Daten machen das ‘‘Environment‘‘, die Umgebung der Textdatei, 
aus. Man kann sie sich mit dem S(et-Befehl des Editors ansehen und auch 
verändern. Eine Liste dieser Daten finden Sie in Abb.1. 

Die ersten signifikanten Daten beginnen bei Byte 4. (Beachten Sie bitte: 
alle Offsets werden von Byte Nr.O an gezählt, Byte 4 ist damit tatsächlich das 
fünfte Byte der Kopfseite.) An dieser Stelle werden die zehn Marker gespei- 
chert, die von O bis 9 durchnummeriert sind und dazu dienen, bestimmte 
Stellen der Textdatei zu markieren. Sie werden hintereinander gespeichert; 
der Name von Marker O reicht von den Bytes 4 bis 11, der Name von Marker 
l von 12 bis 19 usw. Die Marker werden vom Editor aus eingegeben und auf 
acht Stellen gestutzt oder mit Leerzeichen aufgefüllt, so daß der Name acht- 
stellig wird. 

Der Editor verbindet jeden Marker-Namen mit einer bestimmten Byte- 
Adresse, auf die der Cursor gesetzt wird, wenn man den entsprechenden 
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Marker eingibt. Wenn beispielsweise der Cursor beim Setzen eines Markers 
am Anfang der Textdatei steht, ist eins die zugehörige Marker-Adresse. Die 
Marker-Adressen werden als 2-Byte Integer-Zahlen beginnend bei Byte 94 
des Textkopfes gespeichert. Erwartungsgemäß bezieht sich die erste Marker- 
Adresse auf den ersten Marker-Namen (Bytes 4 bis 11) usw. 

Unmittelbar auf die Marker-Adressen folgen drei Worte mit Boole’schen 
Daten. Von diesen drei Worten ist jedoch nur jeweils das höchstwertige Bit 
signifikant. Mit diesen drei Boole’schen Werten werden die Zustände der 
Optionen “Auto Indent‘‘, ‘“Filling‘‘ und ‘“Token‘‘ dargestellt. 

Die nächsten drei Felder enthalten Integer-Zahlen, die die Textgrenzen 
bestimmen: linker Rand, rechter Rand und Absatzrand. Das Befehlszeichen 
wird in den nächsten beiden Bytes im ASCII-Format gespeichert. 

Die letzten beiden Einträge sind Kalenderdaten: zuerst das Datum der 
Textdatei-Entstehung, danach das Datum der letzten Änderung. Beide Da- 
ten werden vom Betriebssystem anhand des aktuellen Diskettendatums fest- 
gelegt und sind in einem extrem verdichteten Format abgelegt, das im ganzen 
Betriebssystem Verwendung findet. Der Monat, Tag und das Jahr werden in 
den ersten vier, nächsten fünf und letzten sieben Bits eines Wortes gespei- 
chert. 

Listing Nr.1 enthält ein Programm mit dem Namen TEXTINFO, das die 
Textkopfseite einer beliebigen Textdatei abfragt und die dort enthaltenen 
Daten auf dem Bildschirm und/oder einem Drucker ausgibt. 
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Daten Start 


Marker 4 


Marker- 
Adressen 94 


Auto in- 
dent 114 


Filling 116 
Token def. 118 


Linker 

Rand 120 
Rechter 

Rand 122 
Absatzrand 124 
Befehlszei- 
chen 126 
Anfangsda- 
tum 128 
Monat 

Tag 

Jahr 

Letzter Zu- 
griff 130 


Monat 
Tag 
Jahr 


End- 
Byte 
83 


113 


115 
117 


119 


121 


123 
125 


127 


129 


131 


Länge Format 


80 


20 


Bemerkungen 


Packed Char 10 mal, jedes Ele- 


Integer 


Boolean 
Boolean 


Boolean 


Integer 


Integer 
Integer 


Integer 


Packed Rec. 


Packed Re- 
cord 


ment mit 8 Bytes 


10 mal, jedes Ele- 
ment mit 2 Bytes 


Nur Hi-Bit wird 
benutzt 
Nur Hi-Bit wird 
benutzt 
Nur Hi-Bit wird 
benutzt 


erste vier Bits 
nächste fünf Bits 
letzte sieben Bits 


erste vier Bits 
nächste fünf Bits 
letzte sieben Bits 


Abb.1 Die im Textkopf einer Pascal-Textdatei gespeicherten Daten 


Ich versuchte dann, die BLOCKREAD-Funktion zum Einlesen der Text- 
kopfdaten zu verwenden, mit zufriedenstellendem Ergebnis. Da mit 
BLOCKREAD nur auf Einheiten, die mindestens einen vollen 512-Byte- 
Block umfassen, zugegriffen werden kann, mußte an die HEADER- 
Definition FILLER3 angehängt werden, um die Datenstruktur auf die erfor- 
derliche Größe zu bringen. 
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Nebenbei sei erwähnt, daß die Methode, mit der der Output wahlweise 
auf den Bildschirm oder auf den Drucker geschickt wird, auch in vielen an- 
deren Anwendungen nützlich sein kann. Diese Aufgabe wird von der Proze- 
dur WRITEINFO gelöst, die nur eine Datei, nämlich das als ““interactive“‘ 
deklarierte OUTPUTFILE, benutzt. Der dieser Prozedur übergebene Para- 
meter ist ein String: ‘‘CONSOLE:“‘ oder “PRINTER: - damit ist es mög- 
lich, den Output auf das jeweils gewünschte Gerät zu schicken. 

Für diejenigen Leser, die den Pascal-Editor häufig zur Textverarbeitung 
verwenden, kann ein Ausdruck der Environment-Informationen ihrer Text- 
dateien (insbesondere der Kalenderdaten und Randbegrenzungen) recht 
nützlich sein. 

Das Programm benötigt den Namen der Textdatei (das Suffix .TEXT 
wird automatisch vom Programm erzeugt) und die Angabe des Ausgabege- 
rätes; der Output kann auf den Bildschirm, den Drucker oder auch auf beide 
Geräte geschickt werden. Beantwortet man die Frage nach der Textdatei 
oder dem Ausgabegerät mit einem einfachen Carriage-Return, wird das Pro- 
gramm vorzeitig beendet. 

Die Ausgabe auf den Bildschirm oder den Drucker erfolgt im wesentli- 
chen im gleichen Format. Abb.2 zeigt zwei Beispiele. Das erste Beispiel zeigt 
Daten, die aus der Kopfseite eines Pascal-Programms rekonstruiert wurden, 
in der weder die Umgebung (Environment) noch irgendwelche Marker fest- 
gesetzt wurden. In diesem Fall werden Standardparameterwerte eingetragen. 
Das zweite Beispiel zeigt Daten, die von einer Datei stammen, das ich zur 
Textverarbeitung benutzt hatte. Es handelt sich dabei, genauer gesagt, um 
diesen Artikel, den ich mit dem Pascal-Editor geschrieben habe. Einige der 
Umgebungsparameter wurden geändert und zwei Marker definiert. 


Text File: #5:tf.TEXT 


Auto Einr.= True Fuellen = False 
Token def = True Befehls-Z, = * 
Linker Rand = O0 Recht. Rand = 78 


Absatzrand = 5 


Erstellungsdatum = 8-Mrz-82 
Letzte Aktualisierung = 13-Mai-85 


Marker Name Markeradresse 
Keine Marker 


Abb. 2 Bildschirm-/Drucker-Ausgabe des TEXT_INFO- Programms 
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Ich glaube, daß sich das Programm im großen und ganzen selbst erklärt. 
Ein paar Dinge bedürfen vielleicht noch einer näheren Erläuterung: Der 
Pascal-Record-Typ HEADER enthält die im ersten Block des Textkopfes ge- 
speicherten Daten. FILLERI1 und FILLER2 werden dazu benutzt, die nicht 
benötigten Bereiche zu überspringen. FILLERS$ dient einzig und allein dem 
Zweck, mit Hilfe der BLOCKREAD-Funktion auf die Textkopf-Daten zu- 
zugreifen. Der Grund für die Wahl dieser Funktion muß wohl noch extra er- 
läutert werden. 

Ich hatte versucht, die Daten in den HEADER-Record einzulesen, ohne 
die FILLER3-Definition (Länge 132 Bytes) zu benutzen, indem ich eine Da- 
tei vom Typ HEADER deklarierte und dann probierte, auf den ersten Re- 
cord mit einem GET-Befehl zuzugreifen. Die in dieser Form gelesenen Daten 
stammten jedoch immer aus der zweiten Seite der Textdatei, also aus dem 
Bereich, der bereits den eigentlichen Text beinhaltet. Es hat den Anschein, 
daß das Betriebssystem eine Textdatei als solche erkannte, obwohl in der De- 
klaration als Dateityp HEADER und nicht TEXT angegeben wurde. 
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(* LISTING#1: TEXT_INFO *) 
(* *) 
(* Dieses Programm untersucht den Dateikopf von Pascal Text *) 
(* Files und gibt die Fileparameter auf auf Drucker oder *) 
(* Bildschirm aus. *) 
(x r 
(* Programmiert von Alan J. Nayer September 1981 *) 
(#--_—— 0 0... 0. *) 


PROGRAM TEXT_INFO; 


TYPE DATE= 
PACKED RECORD 


MONTH : 0..12; 
DAY : 0..31; 
YEAR : 0..100; 


END; 


HEADER= 

PACKED RECORD 
FILLER1 
MARKER 
FILLER2 
MARKER _ADDR 
AUTO_INDENT 
FILLING 
TOKEN_DEF 
LEFT_MARGIN 
RIGHT_MARGIN 
PARA_MARGIN 
COMMAND_CH 
DATE_UREATED 
DATE_UPDATED 


FILLER3 
END; 


VAR TEXT_HDR 
IN FILE NAME 
MONTH_NAMES 


(* Format des Pascal Datums *) 


(* Format des Pascal Textkopf-Blocks *) 


PACKED ARRAY[O..3] OF CHAR; 

PACKED ARRAY[O..9,0..7] OF CHAR; 

PACKED ARRAY[O..9] OF CHAR; 

PACKED ARRAY[O..9] OF INTEGER; 

PACKED ARRAY[O..15] OF BOOLEAN; 

PACKED ARRAY[O..15] OF BOOLEAN; 

PACKED ARRAY[O..15] OF BOOLEAN; 

INTEGER; 

INTEGER; 

INTEGER; 

CHAR; 

DATE; 

DATE; 
(* Mit FILLER3 wird der HEADER-Record *) 
(* fuer BLOCKREAD auf die Groesse von *) 
(* 512 Bytes gebracht. *) 


: PACKED ARRAY[0..379] OF CHAR; 


: HEADER; 
: STRING; 


STRING[ 36]; 


CR,FF,CLEAR_EOL, BEL, NUL, DESTINATION 


CHAR; 


GOOD_DEST,SCREEN, PRINTER 


(* 


PROCEDURE INITIALIZATION; 


BEGIN 
CR:=CHR(13); 
FF:=CHR(12); 
CLEAR_EOL:=CHR(29); 
BEL:=CHR(7); 
NUL:=CHR(O); 


SET OF CHAR; 
= ---— 00000000 % ) 


MONTH_NAMES :="JanFebMrzAprMaiJunJulAugSepOktNovDez'; 
SCREEN:=['S','B','s','b']; 
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PRINTER:=[ 'P','B','p','b']; 
GOOD_DEST:=SCREEN+PRINTER 
END; (*initialization*) 


PROCEDURE GET_INPUT_FILE; 


VAR TFILE FILE; (* Behandelt man ein Textfile als typfreies *) 
(* File, dann kann man den Kopfblock lesen *) 
NUM_BLOCKS : INTEGER; 
GOOD_FILE : BOOLEAN; 


BEGIN 
WRITELN(FF, "TEXT INFO'); 
REPEAT (* Bis Datei erfolgreich gelesen ist *) 
‚GOTOXY(O, 5); 
WRITE('Name des Textfiles (.TEXT wird angehaengt):',CR,CLEAR_EOL); 
READLN(IN FILE NAME); 
IF IN] FILE | NAME=' ' THEN EXIT(PROGRAM) ELSE 
(* Mit <RET> wird Programm verlassn ”) 
IN_FILE_NAME:=CONCAT(IN_ FILE_NAME, '.TEXT'); 
GOTOXY(0,23); 
(*F$I-*) 
RESET(TFILE,IN FILE_NAME); 
GOOD_FILE:=IORESULT=0; 
IF NOT GOOD _ FILE THEN WRITE(IN FILE NAME," nicht gefunden.', 
CLEAR | EOL „BEL) ELSE 
BEGIN (* Wenn File erfolgreich eroeffnet, versuchen *) 
(* ersten Kopfblock zu lesen. * 
NUM_BLOCKS:=BLOCKREAD(TFILE,TEXT_HDR,1); 


(*$I+*) 

IF (NUM_BLOCKS<>1) OR (IORESULT<>0) THEN 
BEGIN 

WRITE(IN_FILE_NAME,' nicht lesbar,.',BEL,CLEAR_EOL); 

EXIT( PROGRAM) 
END ELSE WRITE(IN_FILE_NAME,' geoeffnet und gelesen',CLEAR EOL); 
CLOSE(TFILE,LOCK) 

END 


UNTIL GOOD_FILE 
END; (*get_input_file*) 


PROCEDURE GET_OUTPUT_FILE; 


BEGIN 
GOTOXY(0,10); 
WRITE ("Ausgabe auf:'); 
WRITELN('S(chirm, P)rinter oder B)eide'); 
WRITELN; 
WRITE( "Ihre Wahl: '); 
REPEAT 

READ(KEYBOARD, DESTINATION); 

IF EOLN(KEYBOARD) THEN EXIT(PROGRAM) 
UNTIL DESTINATION IN GOOD_DEST; 
WRITE(DESTINATION) 

END; (*get_output_file*) 


PROCEDURE T_OR_F(BOOL:BOOLEAN; VAR TR_FL:STRING); 
BEGIN 


IF BOOL THEN TR_FL:='True ' ELSE TR_FL:="False' 
END; (* t_or_f *) 
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PROCEDURE CONV_DATE(DATE_PARAM:DATE; VAR EXPANDED_DATE:STRING); 
VAR S1,52,53 STRING[3]; 


BEGIN 
WITH DATE_PARAM DO 
BEGIN 
STR(DAY,S1); 
STR(YEAR,S3); 
S2:=COPY(MONTH_NAMES ‚MONTH*3-2 3); 
EXPANDED DATE: SCONCAT(SI, 1_!1 52,'-',53) 
END 
END; (*conv_date*) 


PROCEDURE WRITE _INFO(OUT_FILE_ NAME:STRING); 


VAR OUTPUT_FILE INTERACTIVE; (* Diesem File wird entweder 
(* CONSOLE: oder PRINTER; zugewiesen *) 
STRNG1 ,STRNG2 STRING; 
MARKER_NUM INTEGER; 
BEGIN 


REWRITE(OUTPUT_FILE,OUT_FILE_NAME); 
IF OUT_FILE_NAME="CONSOLE: ' THEN WRITELN(OUTPUT_FILE,FF); 
WRITELN(OUTPUT_FILE, "Text File: ':20,IN FILE NAME,CR,CR); 
WITH TEXT_HDR Do 
BEGIN 
T_OR_F(AUTO_INDENT[O],STRNG1); 
T OR _ F(FILLING[0], STRNG2); 
WRITELN(OUTPUT_| FILE, "Auto Einr.= ',STRNGI, 
'Fuellen = ':16,STRNG2); 
T_OR_F(TOKEN_DEF[O], STRNGL); 
WRITELN(OUTPUT_FILE, 'Token def = 'STRNGI, 
'!Befehls-Z. = ': :22,COMMAND_( CH ‚CR); 
WRITELN(OUTPUT_FILE, "Linker Rand = ' LEFT | MARGIN:2, 
"Recht. Rand = ':22,RIGHT " MARGIN: 1:2); 
WRITELN(OUTPUT_FILE, "Absatzrand =! :26,PARA_MARGIN,CR); 
CONV ' DATE(DATE _( CREATED ‚sTRNG1); 
CONV '_DATE(DATE | UPDATED,STRNG2) ; 
WRITELN(OUTPUT | FILE, "Erstellungsdatum = ',STRNG1,CR, 


'Letzte Aktualisierung = ‚STRNG2 ‚CR); 
WRITE(OUTPUT_FILE, 'Marker Name':16, 'Markeradresse ':19); 
(* Ist das erste Byte des Markernanens *) 
(* chr(0O), dann ist der Marker leer. *) 


IF MARKER[O,1]=NUL THEN WRITE(OUTPUT_FILE,CR, 
'Keine Marker ':27) ELSE 
FOR MARKER_NUM:=0 TO 9 DO 
IF MARKER[MARKER _ NUM, 1]<>NUL THEN 
WRITE(OUTPUT_FILE,CR,MARKER NUM: 3 ‚MARKER[MARKER_NUM]:12, 
MARKER ADDR[MARKER NUM]: 14) 
END; 
IF OUT_FILE_NAME="PRINTER:' THEN WRITELN(OUTPUT_FILE,CR,CR) 
END; (* write_info *) 


BEGIN (* Hauptprogramm *) 
INITIALIZATION; 
GET_INPUT_FILE; 
GET_( OUTPUT _ FILE; 
IF DESTINATION IN SCREEN THEN WRITE ‚ INFO('CONSOLE: '); 
IF DESTINATION IN PRINTER THEN WRITE_INFOC' PRINTER: '); 


162 


David Geddes 


Das Pascal-Datum 


Haben Sie schon einmal versucht, die Kalenderinformationen von Disketten 
zu aktualisieren, auf die mit einem Turnkey-System (SYSTEM.STARTUP) 
zugegriffen wird? Normalerweise muß man dazu den Filer aufrufen und das 
aktuelle Tagesdatum eingeben, bevor man das Programm benutzt. Die Ver- 
wendung eines Turnkey-Systems, also eines Programmsystems, das beim 
Einschalten des Rechners betriebsbereit ist, wird dadurch natürlich verhin- 
dert. Außerdem muß der Filer auf der Diskette vorhanden sein. 

Als ich versuchte, dieses Problem zu bewältigen, suchte ich im Betriebs- 
system herum und schrieb bei dieser Gelegenheit die in sich abgeschlossene 
PROCEDURE GETDATE (s. Listing Nr.1). Das Programm DATEDEMO 
zeigt, wie man GETDATE in einem Turnkey-Programm benutzen kann. 
Wenn man sie in das SYSTEM.STARTUP-Programm einbaut, kann man 
mit ihr bei jedem Booten der Diskette das Tagesdatum eingeben. 

GETDATE sieht zunächst nach dem auf der Diskette gespeicherten Da- 
tum und fragt, ob es geändert werden soll. Das neue Datum kann genau wie 
mit dem Filer eingegeben werden; der einzige Unterschied ist, daß man den 
Monat auch als Zahl angeben kann. Wenn der Benutzer eine Änderung ein- 
gibt, wird sowohl das Diskettendatum als auch das im Speicher befindliche 
Datum entsprechend aktualisiert, damit neu angelegte Dateien gleich das ge- 
änderte Datum erhalten. Das Datum (aktualisiert oder nicht) wird von GET- 
DATE als variabler Parameter in Stringform übergeben (vgl. den Prozedur- 
kopf von GETDATE). Die CONST DATELOC (Speicheradresse für das 
Datum) bezieht sich auf Version 1.1. Wenn Sie Version 1.0 verwenden, müs- 
sen Sie DATELOC in -22254 umändern. 

Sie sollten vorsichtig sein, wenn Sie diese Prozedur zuerst ausprobieren. 
Testen Sie sie nur mit Disketten, die Sie vorher kopiert haben, da schlimme 
Dinge mit ihnen passieren können, wenn Sie die Prozedur nicht richtig abge- 


tippt haben... 
Solche Programmieraufgaben werden allerdings durch PASCAL-ZAP 


von Philip Ender (vgl. gleichnamiges Kapitel in diesem Buch) erleichtert. 
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(ak aloflllslalelalelgieigekobielnppkpkekglofgielelefelekick) 
(* Listing #1: Demoprogramm fuer GETDATE *) 
(* *) 
(* Von: David Geddes and Ron DeGroat *) 

%* 


(* Mai 1981 
Gesalsbeepickkelelelgiicick) 


PROGRAM DATEDEMO; 
VAR DATE:STRING; 
PROCEDURE GETDATE(VAR DATE:STRING); 


(* Liest Datum und ermoeglicht Aenderung aehnlich *) 
(* der D(ate-Option des SYSTEM.FILERs. Im Vari- *) 
(* ablenparameter wird das Datum in Form eines *) 
(* Strings zurueckgegeben. *) 


CONST MONTHS="** JanFebMrzAprMaiJunJulAugSepOktNovDez' ; 
DATELOC=-21992; (* -22254 fuer Version 1.0 *) 


TYPE DATEREC = PACKED RECORD 
M : 0,..12; 
DD : 0..31; 
YY : 0..99; 
END; (*daterec*) 


MEMDATEREC = RECORD CASE INTEGER OF 
1:(DATE: "DATEREC); 
2:(LOC : INTEGER); 

END; (*memdaterec*) 


VAR DISKBLK2:RECORD 
XXX : PACKED ARRAY[0..19] OF CHAR; 
VOLDATE : DATEREG; 
ZZZ : PACKED ARRAY[22..511] OF CHAR; 
END; 


NEWDATE :DATEREC; 
MEMDATE :MEMDATEREC; 
DD,MM,YY :INTEGER; 
CHANGE :STRING; 
DONE :BOOLEAN; 


FUNCTION INT(NUM: STRING) :INTEGER; 


(* Konvertiert String in Integerwert, funktioniert *) 
(* nur bei positiven Werten. *) 


VAR I,X:INTEGER; 


BEGIN (*int*) 
ı=0; 
FOR I:=1 TO LENGTH(NUM) DO 
X:=10*X-+(ORD(NUM[I])-ORD('0')); 
INT:=X; 
END; (*int*) 
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PROCEDURE CHANGEDATE; 


(* Aendert Datum entsprechend den Angaben des Benutzers *) 


CONST UCMONTHS=' PK JANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDEC' ; 
LCMONTHS ="**janfebmaraprmayjunjulaugsepoctnovdec'; 


VAR DASH:INTEGER; 
MONPART: STRING; 
NEWDATE :DATEREC; 


PROCEDURE SETDATE; 
(* Schreibt Datum auf Diskette und in Arbeitsspeicher *) 


BEGIN 
DISKBLK2.VOLDATE :=NEWDATE; 
UNITWRITE(4,DISKBLK2,512,2,0); 
MEMDATE.LOC :=DATELOC; 
MEMDATE.DATE“ :=NEWDATE; 

END; (*setdate*) 


BEGIN (*changedate*) 
(* Tag aendern? *) 


DASH:=POS( '-'" „CHANGE) ; 
CASE DASH OF 
0:DD:=INT(CHANGE) ; 
1:DD:=DISKBLK2.VOLDATE.DD; 
2,3:DD:=INT(COPY(CHANGE,1,DASH-1)); 
END; 
IF (DD<1) OR (DD>31) OR (DASH>3) 
THEN NEWDATE.DD:=DISKBLK2.VOLDATE.DD 
ELSE NEWDATE.DD:=DD; 
IF DASH=0 THEN CHANGE:="' 
ELSE DELETE(CHANGE,1,DASH); 


(* Monat aendern? *) 


DASH:=POS('-"' ‚„CHANGE) ; 
IF DASH>O THEN MONPART:=COPY(CHANGE,1,(DASH-1)) 
ELSE IF LENGTH(CHANGE)>O THEN MONPART :=CHANGE 
ELSE MONPART:=""; 

CASE LENGTH(MONPART) OF 

0:MM:=DISKBLK2.VOLDATE.MM; 

1,2:MM:=INT(MONPART); 

3:MM:=POS(MONPART MONTHS) DIV 3+POS(MONPART ‚UCMONTHS) 

DIV 3+POS(MONPART,LCMONTHS) DIV 3; 


END; 

IF (M<1) OR (MM>12) 

THEN NEWDATE.MM:=DISKBLK2.VOLDATE.MM 
ELSE NEWDATE.MM:=M; 


(* Jahr aendern? *) 


IF (DASH>O) AND (LENGTH(CHANGE)>DASH) THEN 
BEGIN 
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DELETE(CHANGE,1,DASH) ; 
YY:=INT(CHANGE) 
END 
ELSE YY:=DISKBLK2.VOLDATE.YY; 
IF (YY<O) OR (YY>99) 
THEN NEWDATE.YY:=DISKBLK2.VOLDATE.YY 
ELSE NEWDATE.YY:=YY; 


SETDATE; (* Auf Disk und im Speicher *) 


END; (*changedate*) 


PROCEDURE GETVOLDATE(VAR DATE:STRING); 


VAR DAY,YEAR:STRING; 


BEGIN 
UNITREAD(4,DISKBLK2,512,2,0); 
WITH DISKBLK2.VOLDATE DO 
BEGIN 
STR(DD,DAY); 
STR(YY,YEAR); 
DATE:=CONCAT(DAY, '-' ,COPY(MONTHS, 3*MM, 3), '-',YEAR); 
END; 
END; (*getvoldate*) 


BEGIN (* Der Kern von GETDATE *) 
REPEAT - 
GETVOLDATE(DATE); 
WRITELN( 'Heute ist der ',DATE); (* Diskettendatum *) 
WRITE( 'Neues Datum? '); 
READLN(CHANGE) ; 
DONE:=(LENGTH(CHANGE)=0) ; 
IF NOT DONE THEN CHANGEDATE; 
UNTIL DONE; 
GETVOLDATE(DATE); 
END; (*getdate*) 


BEGIN (*datedemo*) 
GETDATE(DATE); 
WRITELN; 
WRITELN(DATE); 

END. (*datedemo*) 
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Chris Wilson 


Verbesserte 
Tastatur-Routine 


Wie Sie sicher wissen, gibt es einige ASCII-Zeichen, die mit der APPLE II- 
Tastatur nicht direkt erzeugt werden können. In der folgenden Tabelle sind 
alle sichtbaren Zeichen des ASCII-Zeichensatzes aufgelistet. Zeichen, die 
(im Gegensatz zu Kleinbuchstaben) nicht von der Tastatur aus eingegeben 
werden können, sind unterstrichen. 


ESE'*C)*+,-./0123456789: ;<=>?@ABCDEFGHIJKLMNO 


PORSTUVWXYZ[\]* _‘abcdefghi jkImnopqrstuvwxyz{|} 


Das in diesem Programm beschriebene Tastatur-Treiberprogramm ist eine 
Erweiterung des standardmäßigen Pascal 1.1-Tastaturtreibers. Mit dieser 
Erweiterung kann man nicht nur die zusätzlichen Zeichen direkt von der Ta- 
statur aus eingeben, sondern auch die Kleinbuchstaben einfacher ansprechen 
als mit dem Standardtreiber. 

Man kann die Programme ATTACHUD und SYSTEM.ATTACH des 
Pascal 1.1-BIOS-Softwarepakets benutzen, um einen solchen erweiterten 


Treiber zu installieren (vgl. Kapitel Pascal intern in diesem Buch). 
Mein Programm ist eine Adaption des Lazer Systems Input Editor von 


Randy Hyde, der für die Funktion unter DOS und BASIC entwickelt wurde. 
Das Programm filtert die Eingabezeichen heraus, die vom Standardtrei- 
ber gelesen werden. Schreiboperationen, Initialisierung und Statusaufrufe 
gehen direkt an den Standardtreiber. 
Zur Steuerung des erweiterten Treibers werden Escape-Sequenzen ver- 
wendet. Eine Reihe von Escape-Sequenzen steuert die Eingabe von Sonder- 
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zeichen, während die restlichen zur Eingabe von Kleinbuchstaben verwendet 
werden können. 

Da der Standardtreiber weiterhin dazu dient, die eigentliche Tastaturab- 
frage zu erledigen und den Eingabepuffer abzuarbeiten, muß die Eingabe- 
möglichkeit für Kleinbuchstaben über den Standardtreiber mit Ctrl-E einge- 
schaltet werden. Beachten Sie, daß Ctrl-E, Ctrl-W, Ctrl-R und Ctrl-T zur 
Steuerung des Standardtreibers benutzt werden. 

Der erweiterte Treiber erlaubt die Verwendung einer Software-Shift- 
Taste und einer Shift-lock-Taste. Man beginnt mit dem Eingabemodus für 
Kleinbuchstaben, sobald man Ctrl-E wie oben erwähnt eingibt. Will man 
jetzt einen Großbuchstaben eintippen, braucht man nur vorher die ESC- 
Taste zu drücken. Ein großes ‘‘A‘“‘ wird also beispielsweise durch die Tasten- 
folge ‘‘ESC a‘‘ erzeugt (entsprechend dem ‘‘Shift a“‘ auf einer Schreibma- 
schine). Das geht einfacher als mit dem aus zwei Tasten bestehenden ‘‘Ctrl- 
W‘‘-Präfix, das man zur Eingabe von Großbuchstaben verwenden muß, 
wenn man den Standardtreiber benutzt. Will man den Shift-lock-Modus be- 
nutzen, also fortlaufend Großbuchstaben eingeben, muß man ‘‘ESC ESC“ 
tippen. Zum Umschalten auf den Kleinbuchstabenmodus wird dann später 
wieder ‘‘ESC ESC“‘ eingegeben. 

Soviel zur Eingabe von Kleinbuchstaben. Die Escape-Sequenzen werden 
aber auch für die Eingabe gewisser Sonderzeichen benötigt. Hier eine Tabel- 
le dieser Zeichen: 


ESC lor ! -> | _(*chr(124)*) 
ESC2or" - (*chr(126)*) 
ESC 3 or # -> del (*chr(127)*) 
ESC Tor !' -> (*chr(96)*) 
EScC8or( —-({ (*chr(123)*) 
ESC9or) ->) (*chr(125)*) 
ESC ,or< >[ (*chr(91)*) 
ESC.or> ->] (*chr(93)*) 
ESC-or= - (*chr (95)*) 
ESC / or ? ->\ _ (kchr(92)*) 
ESC <space> -> ESC 


Da das ESC-Zeichen zur Eingabe dieser Sonderzeichen benötigt wird, wurde 
die Möglichkeit geschaffen, das ESC-Zeichen selbst einzugeben, um Pro- 
gramme wie z.B. den Editor zu bedienen. Sie brauchen dazu nur “‘'ESC 
«Leertaste»‘‘ zu tippen. 

Wenn Sie ATTACHUD starten, um das Datenfile für SYSTEM.AT- 
TACH zu erzeugen, beantworten Sie seine Fragen wie folgt: 
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Enter name of attach data file: 
(Name des Anpassungs-Datenfiles:) 
ATTACH.DATA 


Will you ever use the (2000,3FFF hex) HI-Res page? 
(Wird HI-RES-Grafikseite 1 ($2000 bis $3FFF) benutzt?) 
N 


Will you ever use the (4000,5FFF hex) HI-Res page? 
(Wird HI-RES-Grafikseite 2 ($4000 bis $SFFF) benutzt?) 
N 


What is the name of this driver? 

(Wie heißt dieses Treiberprogramm?) 

Hier muß der .PROC-Name des Assembler-Quellfiles angegeben werden. 
Bei Eingabe von «Return» wird das Programm verlassen: 

CONSOLE 


Which Unit numbers should refer to this device driver? 
(Welche Gerätenummern sollen sich auf diesen Treiber beziehen?) 


Unit number (bei «Return» Programmabbruch): 
1 


Do you want this unit to be initiaiized at boot time? 
(Soll dieses Gerät beim Booten initialisiert werden?) 
Y 


Do you want another unit number to refer to this device driver? 
(Soll sich noch eine andere Gerätenummer auf diesen Treiber beziehen?) 
Y 


Unit number (bei «Return» Programmabbruch): 
2 


Do you want this unit to be initialized at boot time? 
(Soll dieses Gerät beim Booten initialisiert werden?) 
N 


Do you want another unit number to refer to this device driver? 
(Soll sich noch eine andere Gerätenummer auf diesen Treiber beziehen?) 
N 
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Do you want this driver to start on a certain byte boundary? 


(Soll dieser Treiber bei einer bestimmten Byte-Grenze beginnen?) 
N 


Do you want to attach another driver? 


(Soll noch ein Treiber angepaßt werden?) 
N 
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ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC / 


Ile oO OWN m 


ESC a 
ESC z 


-m “0 wa wo.“ 0 MU U TO TE ME ME TE TE BE we wu -—o. ww... wo. oo 00 wo we 


INDIRECT 
JVAFOLD 
ACIVAFLD 


RETURN 
TEMPI1 
ROUTINE 


or 
or 
or 
or 
or 


O 
4 
NM VAN “SR 


ESC <space> 
ESC ESC 


Copyright (c) 1982 Chris Wilson 


Die von diesem erweiterten Tastaturtreiber 
unterstuetzten Escape-Sequenzen lauten 
wie folgt : 


-> | _ (*chr(124)*) 
-> (*chr(126)*) 
-> del (*chr(127)*) 
-> ° (*chr(96)*) 

> ( (*chr(123)*) 
-> ) (*chr(125)*) 
> [ (*chr(91)*) 

-> ] (*chr(93)*) 

> (*chr (95)*) 

-> \ _ (*chr(92)*) 

-> ESC 


-> (* Umschalter fuer Grossbuchstaben-Feststelltaste *) 
A 
>: 
->2Z 


Zur Installation dieses Treibers wird das Programm 
SYSTEM. ATTACH benoetigt 


.EQU 002 

.EQU OEE 

.EQU OE2 

.PROC CONSOLE 

JMP _CONCKHDL ;SYSTEM.ATTACH patcht die CONCK-Routine so, 
‚dass die Einsprungadresse hier liegt 

STA TEMPI ;Einsprungadresse fuer alle Lese-, Schreib- 
;‚Initialisierungs- und Statusaufrufe 

STY TEMPI+l 

PLA ‚Ruecksprungadresse retten 

STA RETURN 

PLA 

STA  RETURN+1 

TXA ;X-Register wird zur Ermittlung des Aufruf- 
;‚typs verwendet 

BEQ READ 

CMP #1 

BEQ WRITE 

CMP #2 

BEQ INIT 

CM #4 

BEQ STATUS 

LDX #3 :E/A-Befehl existiert nicht 

JMP  RET 

WORD O 

.WORD O 

„WORD O 
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READ 


WRITE 


INIT 


STATUS 


GET 
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‚Code fuer Leseoperation 
LDA RDRTN+1l ;Stackadresse festhalten, damit die Standard- 


PHA ;Leseroutone zu READRTN zurueckspringt und man 
‚auf diese Weise die Tastaturzeichen ausfiltern 
‚kann 

LDA  RDRTN 

PHA 

LDY #1 ;‚Adressoffset der Standard-Leseroutine 

BNE GETI ;in der von SYSTEM.ATTACH erzeugten Sprung- 
‚vektorkopie 

‚Code fuer Schreiboperation 

LDY #4 

BNE GET 


;Code fuer Initialisierungsoperation 


‚Zuerst BIOS-Sprungvektor so patchen, dass alle Schreib-, 
;Initialisierungs- und Statusaufrufe direkt an die Stan- 
‚dardkonsolenroutinen geleitet werden. 


LDA 0CO8B ‚Auf Interpreter umschalten 
LDY #4 

JSR FIXUP ‚Schreiben 

LDY #7 

JSR FIXUP ‚Initialisieren 

LDY #43. 


JSR  FIXUP ‚Status 


‚Jetzt den von SYSTEM.ATTACH erzeugten Patch aufheben, 
‚der einen Sprung an den Anfang dieses Treiberprogramms 
sbewirkt. 


WY #55. ‚Original CONCK-Adresse holen 
LDA @ACJVAFLD,Y 

STA  INDIRECT 

INY 

LDA G@ACJIVAFLD,Y 

STA  INDIRECT+ 


LDY #0 

LDA #08 ‚PHP 
STA G@INDIRECT,Y 
INY 

LDA #48 ‚PHA 
STA @INDIRECT,Y 
INY 

LDA #8A ;TXA 


STA  @INDIRECT,Y 
LDA 0C083 BIOS einschalten 


LDY #7 
BNE GET 


:Code fuer Status 
LDY #43. 


LDA RETURN+l ;Ruecksprungadresse auf Stack bringen, damit 
‚der Standardtreiber direkt zum aufrufenden 
Programm zurueckspringt 


GETI 


FIXUP 


RDRTN 
ESRTN 
CAPSLOCK 


TABLEI 


TABLE2 


TBLSIZE 
READRTN 


CHKLC 


ESCKEY 


PHA 
LDA RETURN 
PHA 


;ACIVAFLD enthaelt einen Zeiger auf die von 
;SYSTEM.ATTACH angelegte Kopie des Sprungvektors, 
;die erzeugt wurde, bevor er an diesen Treiber 
‚angepasst wurde, 

LDA G@ACIVAFLD,Y 

STA  ROUTINE 

INY 

LDA G@ACJVAFLD,Y 

STA ROUTINEHL 

LDY TEMPI+1l ;Register wiederherstellen 

LDA  TEMP1l 

JMP  @ROUTINE ;Standardtreiber aufrufen 


LDA G@ACJIVAFLD,Y 
STA  A@JVAFOLD,Y 

INY 

LDA G@ACJIVAFLD,Y 
STA A@JVAFOLD,Y 

RTS 


„WORD READRTN-1 
„WORD ESCRTN-1 
.BYTE 0 


„ASCII "123789, .-/" 

„ASCIL "I" 

.BYTE 022 

„ASCIL "E'()oH=?" 

„ASCII " " 

.BYTE 07C,07E,07F,060,07B,07D,05B,05D,05F,05C 
.BYTE 07C,07E,07F,060,07B,07D,05B,05D,0O5F,05C 
.BYTE O1B 

.EQU *-TABLE2 


CMP  #01B ;ESC? 

BEQ ESCKEY 

LDY CAPSLOCK ;Capslock gesetzt? 

BNE CHKLC 

CMP #041 ‚Nein, GROSSBUCHSTABENMODUS? 

BCC  RET 

CMP  #054A+1 

BCS RET 

ORA #020 ‚Ja, Kleinbuchstaben generieren 
JMP  RET 

CMP #061 :Kleinbuchstabe? 

BCC  RET 

CMP  #07A+1 

BCS RET 

AND #0DF ‚Ja, in Grossbuchstaben umwandeln 
JMP  RET 

LDA ESRTN+1l ;ESCRTN auf Stack bringen, damit die Standard- 
PHA sLeseroutine nach ESCRTN zurueckspringt 
LDA ESRTN 

PHA 

LDY #1 
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JMP  GET1 


ESCRTN LDY #TBLSIZE 
CONVLOOP CMP  TABLE1l,Y ;Zeichen nach ESC untersuchen, um festzustellen, 
BEQ CHANGE ;ob es eines der besonderen Steuerzeichen ist 


DEY 
BPL_ _CONVLOOP 
JMP _NOTSPCL 
CHANGE LDA TABLE2,Y ;Ja, ersetze es durch das entsprechende Zeichen 
JMP  RET ‚aus TABLE2 
NOTSPCL CMP  #01B :ESC? 
BNE NOTESC 
LDA CAPSLOCK ;Ja, Capslock umschalten 
EOR #0FF 


STA CAPSLOCK 
JMP  READ sNaechstes Zeichen holen 


NOTESC CMP #061 sKleinbuchstabe? 


BCC  RET 

CMP  #07A+l 

BCS  RET 

AND #0ODF ‚Ja, in Grossbuchstaben umwandeln 
RET TAY Akku retten 

LDA RETURN+1 ;Ruecksprungadresse auf Stack, damit 

PHA ‚zur aufrufenden Routine zurueckgesprungen wird 

LDA RETURN 

PHA 

TYA ‚Akku wiederherstellen 

RTS 
CONCKHDL PHP Prozessorstatus wiederherstellen 

PHA 

TXA 

PHA 

TYA 

PHA 

CLC sCONCK-Adresse holen 

LDY #55. 

LDA G@ACJIVAFLD,Y 

ADC #6 ‚Wegen des von SYSTEM.ATTACH erzeugten Patches 

sum 6 erhoehen 

STA ROUTINE 

INY 

LDA G@ACIVAFLD,Y 

ADC #0 


STA ROUTINE+Hl 
JMP  GROUTINE 
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Paul W. Mosher 


Strukturierter Zu- 


griff auf das DOS- 
Directory 


Bei meinem Bemühungen, mich mit Pascal besser zurechtzufinden, war es 
nicht leicht, mit den Programmiermethoden zu brechen, die ich mir im Lau- 
fe der Jahre beim Umgang mit BASIC angewöhnt hatte. Wenn ich mir heute 
meine ersten Pascal-Programme ansehe, muß ich zugeben, daß viele von ih- 
nen praktisch wörtliche Übersetzungen von Ideen waren, die ich in BASIC 
entwickelt hatte. Besonders das Konzept der “abstrakten Datentypen‘“‘ hatte 
es bei mir anfänglich schwer, in meine Sammlung nützlicher Programmier- 
techniken aufgenommen zu werden, obwohl gerade dieses Konzept einen der 
Hauptvorteile von Pascal und ähnlichen Sprachen gegenüber den altmodi- 
scheren BASIC-artigen Sprachen darstellt. Dieses Problem stellte sich aber 
offensichtlich nicht nur mir, denn viele Pascal-Programme und -Pro- 
zeduren, die bisher veröffentlicht wurden, scheinen abstrakte Datentypen 
ebenso zu vermeiden. 

Als Übung für mich selbst und auch als möglicher Grundstock für die 
Entwicklung von in Pascal geschriebenen DOS 3.3-Hilfsprogrammen pro- 
bierte ich aus, wie man das VTOC (Volume Table Of Contents; Verzeichnis 
der Sektorbelegung) einer DOS 3.3-Diskette mit Hilfe abstrakter Datentypen 
darstellen kann. Beachten Sie, daß man das Ergebnis des hier abgedruckten 
Programms auch ohne abstrakte Datentypen erzielen kann, so als ob man in 
BASIC programmieren würde. Die Verwendung von Recordstrukturen 
macht jedoch das Programm viel besser verständlich und wahrscheinlich 
auch wesentlich kürzer. Mit neun kurzen Zeilen wird ein Diskettenverzeich- 
nis ausgegeben, das freie und belegte Sektoren angibt, und mit einer einzigen 
Anweisung rechnet das Programm aus, wie viele Sektoren auf der Diskette 
noch frei sind. 
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Ein Stück Wirklichkeit 


Abstrakte Datentypen werden mit dem Ziel verwendet, eine abstrakte Dar- 
stellung eines Ausschnitts der ‘“Wirklichkeit‘‘ zu erreichen. Im Idealfall wer- 
den die Daten im Programm so beschrieben, daß die ‘“Bedeutung‘‘ jedem 
klar wird, der das Programm liest. Im Falle dieses Kapitels besteht die 
““Wirklichkeit‘‘ aus der Folge von 256 Bytes, die in Sektor 0 auf Spur 17 je- 
der DOS 3.3-Diskette zu finden sind. Zum besseren Verständnis meiner Be- 
schreibung des strukturierten Records lesen Sie am besten die Seiten 132 bis 
133 des DOS 3.3(oder 3.2)-Handbuches. 

Die dort abgebildete Tabelle zeigt Ihnen die Bedeutung der einzelnen 
Bytes des VTOC-Sektors. Wie man sofort sieht, werden mit diesen Bytes 
sehr unterschiedliche Sachverhalte dargestellt. Die Bytes $1 und $2 stellen 
zum Beispiel jeweils eine einzelne Zahl dar, die die Spur bzw. den Sektor an- 
gibt, bei dem der Diskettenkatalog beginnt. Im Gegensatz dazu werden die 
Bytes $36 und $37 zusammen als eine einzige Zahl behandelt, die die Byte- 
Anzahl in jedem Diskettensektor angibt. 

Die Bytes $30 bis $33 muß man sich als ein Array aus 32 einzelnen Bits 
vorstellen. Im weiteren Verlauf dieser Tabelle findet man dieses aus 32 Bits 
bestehende Array noch 34 mal (140 Bytes). Es bildet damit die Disk Bit Map 
(Bytes $38 bis $C5). Jedes einzelne Bit des insgesamt 1120 Bit langen Arrays 
stellt einen einzelnen Diskettensektor dar (die Hälfte wird freigelassen). Eine 
Eins zeigt dabei jeweils an, daß der Sektor frei ist, während eine Null einen 
belegten Sektor bezeichnet. Es wäre - gelinde gesagt - unklug, diese 140 Bytes 
als Dezimal- oder Hexadezimalzahlen anzusprechen, da ihre ‘“Bedeutung‘“‘ 
in den einzelnen Bits besteht. Aus dem gleichen Grund gibt es keinen Anlaß, 
die Bytes $36 und $37 einzeln anzusprechen, da ihre ‘““Bedeutung“‘ in einer 
einzelnen Zahl besteht. Mit strukturierten Records versucht man nun, solche 
Sachverhalte aus der ‘“Wirklichkeit‘‘ möglichst genau nachzubilden. 

Wie man dem DOS-Handbuch entnehmen kann, wird die Angelegenheit 
dadurch kompliziert, daß es eine Reihe von Bytes gibt, die “‘nicht benutzt‘‘ 
werden und über den Sektor verstreut sind. In einem strukturierten Record, 
in dem diese 256 Bytes als VTOC eingelesen und abgebildet werden sollen, 
müssen diese unbenutzten Bytes berücksichtigt werden, damit alles an seinen 
richtigen Platz kommt. 


Darstellung des VTOC als abstrakten Datentyp 


Damit die Beschreibung besser verständlich wird, habe ich das Pascal- 
Programm mit Zeilennummern aufgelistet, auf die ich mich im folgenden 
beziehe (vgl. Listing). Die Aufgabe besteht darin, die 256 Bytes mit Hilfe von 
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Variablen (Komponenten) zu beschreiben, die durch ihren Namen und 
TYPE die Bedeutung des VTOC wiedergeben. 


Wir beginnen (Zeile 9) mit der Definition des Typs ‘“byte‘‘ als Integer- 
Zahl im Bereich 0..255 (Untermenge). Ein aus solchen ‘“Bytes‘‘ bestehendes 
Array würde tatsächlich jeweils zwei Speicher-Bytes je Element belegen, da 
Integer-Zahlen unabhängig vom zugelassenen Wertebereich in zwei Bytes ge- 
speichert werden. Das höherwertige Byte würde in diesem Fall nicht benutzt 
werden. Verwendet man jedoch ein PACKED ARRAY oder einen PACKED 
RECORD, dann sorgt das Pascal-Betriebssystem dafür, daß die Variablen 
eines gegebenen Typs so wenig Speicherplatz wie möglich beanspruchen. In 
unserem Fall belegt damit eine Variable vom Typ ‘'byte‘‘ genau ein 
Hauptspeicher-Byte. 

Mit der Definition eines gepackten Records namens ‘“VTOC__structure‘‘ 
in den Zeilen 16 bis 34 belegt eine Variable vom Typ ‘‘byte‘‘ genau eine Spei- 
cherzelle. Der Record beginnt mit Unused__A (Zeile 17), womit das nicht 
verwendete Byte Nr.$0 am Anfang des VTOC-Sektors dargestellt wird. Die 
nächsten drei Bytes bestehen aus echten Integer-Zahlen des Typs ‘‘byte‘‘ und 
haben eigene Namen mit entsprechender Bedeutung (Zeilen 18 bis 20). 

Die beiden nicht benutzten Bytes Nr.$4 und $5 werden durch ein gepack- 
tes Byte-Array dargestellt, das natürlich ebenfalls aus zwei Bytes besteht. Ich 
habe mich dazu entschlossen, sie entsprechend ihrer Position im Record zu 
nummerieren; ich hätte aber das Array genauso gut mit der Dimensionierung 
[0..1] wählen können. Beachten Sie, daß dieses gepackte Array mit einer ge- 
raden Byte-Nummer im Record beginnt. Ich erwähne das nur, weil das 
Pascal-Betriebssystem mit ‘“Worten‘‘, d.h. Zwei-Byte-Gruppen, arbeitet 
und alle gepackten Arrays bei einer Wortgrenze beginnen müssen, auch 
wenn das bedeutet, daß man ein Byte verschenkt, wenn man eine gepackte 
Datenstruktur in einer anderen deklariert (vgl. Pascal Language Reference 
Manual, S.17,18). 

Das nächste Byte, $6, beinhaltet die Diskettennummer und hat einen ent- 
sprechenden Namen (Ss. Zeile 22). Auf diese Nummer folgt eine Reihe unbe- 
nutzter Bytes ($7 bis $26). Ich hatte erst versucht, sie in einem ‘“‘Packed Ar- 
ray [0..31] of Byte‘‘ unterzubringen, aber das ging aus dem gerade genann- 
ten Grund schief. Das gepackte Array begann tatsächlich bei Byte Nr.$8; 
Byte Nr.$7 blieb frei, was zur Folge hatte, daß sich die nachfolgenden Spei- 
cherplätze um ein Byte verschoben. Ich ging das Problem dann an, indem ich 
Byte Nr.$7 in Zeile 23 einzeln füllte und den Rest mit einem gepackten Array 
auffüllte. Das wollte aber ebenfalls nicht klappen. 

Wenn man ein gepacktes Array mit einer ungeraden Byte-Anzahl dekla- 
riert und bei einer Wortgrenze beginnt, dann endet das Array in der Mitte ei- 
nes Wortes. Das Betriebssystem weist dann den Rest dieses Wortes dem Ar- 
ray zu und ruft damit ein ähnliches Problem hervor wie oben beschrieben 
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(vgl. APPLE Pascal Language Reference Manual, S.16). Des Rätsels Lö- 
sung besteht darin (Zeilen 24 und 25), das Array nur mit 30 Bytes Länge und 
das 32. Byte getrennt zu deklarieren. Von hier an bis $30 gibt es dann keine 
weiteren Schwierigkeiten. 

Die bei Position $30 beginnenden vier Bytes enthalten 32 einzelne Bits, 
und nicht etwa Zahlen. Wir brauchen hier also eine andere Methode, vier 
Bytes zu beschreiben, mit der man gleichzeitig auf 32 Bits zugreifen kann. 

Die ‘Bit Map“‘ für jeden Sektor einer Diskettenspur enthält ein Bit pro 
Sektor plus 16 unbenutzte Bits (vgl. S.133 unten des DOS-Handbuches). Alle 
Bit Maps zusammen ergeben die Bit Map für die gesamte Diskette. Ich defi- 
nierte ein einzelnes Sector_bit (Zeile 10) als einen Variablentyp, der nur 
zwei mögliche Werte annehmen kann: ‘“‘In__use‘‘ und ‘‘Free‘‘. Listet man 
die Namen in dieser Reihenfolge (und nicht etwa: Free, In__use) auf, so wird 
der Wert 0 mit “‘In__use‘‘ und der Wert 1 mit dem Namen ‘‘Free‘‘ verknüpft 
(so wie das auch auf der BASIC-Diskette der Fall ist). 

Jetzt kann man (in Zeile 11) die Bit Map einer ganzen Spur, die 
‘‘Track_bit _map‘‘, als ein Array aus 32 Sector__bits definieren. Genau 
wie der Typ “‘Boolean‘‘ kann der ‘“Sector_bit‘‘-Datentyp nur zwei Werte 
annehmen, so daß er in einem gepackten Array nur ein Speicherbit Platz be- 
nötigt. Das gesamte Array aus 32 Sector_bits kann so als ‘‘Packed Array 
[0..31] of Sector__bit‘‘ deklariert werden, was der Darstellung auf der 
BASIC-Diskette sehr nahe kommt. 

Leider sind die DOS-VTOC-Bytes in der falschen Reihenfolge angeord- 
net, so daß das durch ““Track__bit_map[6]‘‘ dargestellte Bit in Wirklichkeit 
Sektor Nr.14 repräsentiert usw. (vgl. DOS-Handbuch S.133 unten). Ich habe 
dieses Problem in meinem Programm dadurch gelöst, daß ich eine 
Abbildungs-FUNCTION implementierte, mit deren Hilfe ich auf die richti- 
gen Sektoradressen schließen konnte. Wenn es eine natürlichere oder ‘‘ästhe- 
tischere‘‘ Deklaration für diese Record-Komponente gibt, bei der die Bits in 
der richtigen Reihenfolge dargestellt werden, dann habe ich sie nicht gefun- 
den. Ich bin daher jedem dankbar, der hierfür eine bessere Lösung anbieten 
kann. Das Problem stellt sich wie folgt dar: 


Erste vier Bytes Folgende vier Bytes 
Arrayposition 
01234567 891011121314 15 
Dargestellter 
Sektor : 8910 1112131415 01234567 
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Die Bits 16 bis 31, die in Byte 3 und 4 stehen, werden natürlich nicht benutzt. 
In Zeile 28 wird der Typ ‘“Track__bit _map‘‘ verwendet, um vier Bytes zu 
belegen. 

Die Bytes $34 und $35 in der Beschreibung des DOS-Handbuchs lassen 
sich ohne Schwierigkeiten abbilden und werden in den Zeilen 29 und 30 dar- 
gestellt. Die Bytes $36 und $37 sind als einzelne Integer-Zahl zu behandeln 
und bereits in der Reihenfolge gespeichert, in der auch das Pascal-System 
mit Integer-Zahlen umgeht. Aus diesem Grund kann in Zeile 31 die Kompo- 
nente ‘‘Bytes_per__sec‘‘ als Integer-Zahl definiert werden. 

Bei Byte $38 des Diskettensektors beginnt das Sektorverzeichnis, das die 
nächsten 140 Bytes belegt und angibt, welche Sektoren benutzt sind. Dem- 
entsprechend wird in Zeile 12 der Datentyp ‘“Disk_bit _map‘‘ als gepacktes 
Array aus 35 ‘Track_bit_maps‘‘ deklariert. Mit diesem Datentyp werden 
in Zeile 32 die gesamten 140 Bytes des Sektorverzeichnisses definiert. 


Variablen mit dem neuen Datentyp 


Nun, da der Datentyp ‘“VTOC__structure‘‘ deklariert ist, kann man eine 
Variable dieses Typs definieren (Zeile 42). Diese Variable (VTOC) hat eine 
Größe von 256 Bytes, in die man nun das VTOC einer DOS 3.3-Diskette ein- 
lesen kann. Die Komponenten von VTOC werden dann einfach über ihre 
Namen angesprochen (z.B. ‘“VTOC.Volume__number‘‘), ohne daß man ir- 
gendwelche Programmiertricks anwenden muß! Mit dem Aufruf der Funk- 
tion‘‘VTOC.bit__map [track, sector]‘‘ können Sie sogar ein einzelnes Bit an- 
sprechen. Das wäre allerdings aufgrund der genannten Probleme nicht das 
richtige Bit. Für den korrekten Zugriff benutze ich daher die Funktion 
“Mapping _of‘‘ in den Zeilen 47 bis 52. Durch einen Zugriff wie z.B. 
“VTOC.bit_map [track, mapping__of (sector)]‘‘ erhält man nun das richti- 
ge Bit. 


Die Verwendung strukturierter Datentypen 


Das Programm selbst ist nur ein Beispiel für die Benutzung der VTOC- 
Variablen. In den vier Zeilen 58, 59, 65 und 66 wird das VTOC der DOS 3.3- 
Diskette in die VTOC-Variable eingelesen, indem zunächst der Block mit 
Spur 17, Sektor O in einem Puffer gespeichert wird (Zeile 65), woraufhin die 
ersten 256 Bytes des Puffers mit MOVELEFT in die Variable VTOC kopiert 
werden (Zeile 66). In den Zeilen 89 bis 98 werden die belegten Sektoren der 
Diskette ausgegeben, während in den Zeilen 103 bis 108 die freien Sektoren 
der Diskette gezählt und angezeigt werden. 
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Program VTOC_READ; 


CONST 

VTOC_block = 136; (* Untere Haelfte dieses Blocks ist VTOC Sektor *) 
TYPE 

Sector = 0..15; 

Track = 0..34; 

Byte = 0..255; 

Sector_bit = (In use, free); 

Track_bit_map = Packed Array[0..31] of Sector_bit; 

Disk_bit_map = Packed Array[0..34] of Track_bit_map; 

Blockbuffer = Packed Array[0..511] of byte; 


VTOC_structure= Packed Record 
Unused_A : Byte; 
Dir_sec_start : Byte; 
Dir_Trk_start : Byte; 
Dos Release : Byte; 


Unused_B : Packed Array [4..5] of byte; 
Volume_nunmber : Byte; 

Unused_C : Byte; 

Unused_D : Packed array [8..37] of byte; 
Unused_E : Byte; 

Max_" TS _ Pairs : Byte; 

Unused | F : Packed array [40..47] of byte; 


Mask_bytes : Track_bit_map; 
Tracks_on_disk: Byte; 


Secs_per_track: Byte; 

Bytes_per_sec : Integer; 

Bit_map : Disk_bit_map; 

Unused_G Packed array [196..255] of byte; 


End; (* VTOC-Struktur *) 


VAR 
Unit_num, 
Block, 
Free_spaces Integer; 
Dummy Char; 
VTOC VTOC_structure; 
Input_buffer Block_buffer; 
Sec_num Sector; 
Trk_num Track; 


Function Mapping_of (To_be_mapped : Sector) : Sector; 
Begin 
If To_be_mapped < 8 
then Mapping_of := To_be_mapped + 8 
else Mapping of := To_be_mapped - 8 
End; 


Begin (* Hauptprogramm *) 
Unit_num := 5; (* Ich habe Laufwerk 2 in Slot 6 fuer die DOS-Diskette 


benutzt. *) 
Block := VTOC_block; 
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(#2... 2... 


Lies den Block mit dem VTOC-Sektor in den Eingangspuffer und kopiere 
dann die ersten 256 Bytes des Eingangspuffers in die Variable VTOC 


m nn nn m nn nn nn nn nn nn nn me *) 
Unitread (Unit _num, Input_buffer, 512, Block); 
Moveleft (Input __ buffer[0], VTOC, 256); 

( * LI. 
Ausgabe diverser VTOC-Informationen 
00. 110001000010001000001000.0.000.0000.00...%) 

Writeln( "Directory beginnt bei Sekt.:', VTOC.Dir_sec_start ); 
Writeln('Directory beginnt bei Spur t, VTOC.Dir trk start ); 
Writeln( 'DOS Version .!, VTOC.DOS_release ); 
Writeln('"Diskettennummer ist :', VTOC.Volume_nunber ); 
Writeln('Groesste S/S Paarzahl in S.:', VTOC.Max_TS_pairs ); 
Writeln('Anzahl der Diskettenspuren :', VTOC.Tracks_on_disk); 
Writeln( "Anzahl der Sektoren/Spur ', VTOC.Secs_per_track); 
Writeln( 'Bytes/Sektor ', VITOC.Bytes_per_sec ); 
Writeln( "Groesse der "VTOC"-Variab. :', SIZEOF(VTOC) ); 
Writeln; 

write(' << Belegungsplan und freier Platz auf Tastendruck >>'); 
Read(Dummy); Writeln; 

(KK -—__-____ 0000111010000 
Tabellendarstellung der Diskette, aus der die Sektorbenutzung her- ' 
vorgeht 
—_ ml. _____ 0.0.0022... 8) 

For Sec_num := 0 to 15 do 
begin 
Write(Sec_num:2,': '); 
For Trk_num := O0 to 34 do 
If VOC. ‚bit wahl 1, Trk_num, Mapping_of(Sec_num) ] = free 
then write 
else irekızr,, 
Writeln; 
end; (%* For sec_num - Schleife *) 
Write(' ');For Trk_num := O0 to 34 do write (Trk_num MOD 10);Writeln; 

( *£ —-----—->--22 222 2 2-0. _—_ 
Berechnung und Ausgabe der freien Diskettensektoren 
a ——————— u nn nn nn nn —— %* ) 


Free_spaces := 0; 
For Trk_num := O to 34 do 
for Sec_num := O0 to 15 do 


if VTOC.bit_map[Trk_num, Sec_num] = free 
then Free_spaces := Free_spaces + 1; 
Writeln (' Freier Diskettenplatz = ', Free_spaces, ' Sektoren'); 


End. 
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Roy Bollinger 


Terminal- 
unabhängige Bild- 
schirmsteuerung 


Ich bin seit über 18 Jahren im Bereich Software-Entwicklung tätig und habe 
mich insbesondere der Verbesserung von Software-Schnittstellen gewidmet. 
Ich konnte mich daher nicht damit zufrieden geben, daß meinem neuen 
APPLE-Pascal-System die Möglichkeiten zur vollständigen Kontrolle des 
Bildschirmcursors fehlten. Da ich fest davon überzeugt bin, daß der APPLE 
ein exzellenter Rechner ist, wußte ich, daß eine vollständige Cursorsteuerung 
möglich sein mußte - es galt nur noch herauszufinden, wie. 

Beim Lesen des APPLE-Pascal-Handbuches fand ich einen Abschnitt 
mit der Überschrift: 


4.3 SYSTEM RECONFIGURATION: SETUP.CODE 


der auf Seite 240 beginnt. Da die Informationen, die ich dort fand, meiner 
Einschätzung nach alles enthielten, um den APPLE unabhängig von einem 
bestimmten Terminal betreiben zu können, beschloß ich, dort mit meinen 
Nachforschungen zu beginnen. Innerhalb des Abschnitts fand ich auf 5.246 
einen Unterabschnitt mit dem Titel: 


4.3.4 VIDEO SCREEN CONTROL CHARACTERS 


Damit war ich beim Kern der Sache, denn hier fand ich alle Bildschirm- 
Kontrollzeichen, die ich suchte. 

Zunächst benutzte ich ein File-Dump-Programm, um die MISCINFO- 
Datei auszudrucken, das von dem Programm SETUP.CODE erzeugt wird. 
Danach startete ich SETUP.CODE und beantwortete jede der Fragen, die ei- 
ne numerische Eingabe erfordern, mit aufeinanderfolgenden, positiven 
Integer-Werten, wobei ich bei eins begann. Das so erzeugte MISCINFO-File 
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ließ ich dann durch das Dump-Programm ausdrucken und verglich die Er- 
gebnisse mit dem Original-Dump. So konnte ich feststellen, an welcher Stelle 
SETUP.CODE die Antworten in MISCINFO eingetragen hatte. In Tabelle 1 
finden Sie das Ergebnis dieses Vergleiches. 

Danach benutzte ich SETUP.CODE mehrere Male, um die Fragen zu be- 
antworten, die die Antworten TRUE/FALSE verlangen. So konnte ich fest- 
stellen, wo und wie die Boole’schen Variablen in MISCINFO gespeichert 
wurden. Das Ergebnis dieser Arbeit finden Sie ebenfalls in Tabelle 1. 

Mit diesen Informationen bewaffnet entschloß ich mich, eine PASCAL- 
Unit zu schreiben, die dem Programmierer die Möglichkeit gibt, den Bild- 
schirmcursor vollständig zu kontrollieren. Diese Unit ist in Listing Nr.1 ab- 
gedruckt. 

Der Vorteil dieser Unit liegt darin, daß Sie mit ihr den Cursor terminal- 
unabhängig von einem Programm aus über das passende MISCINFO-File 
steuern können, ohne die Software dem jeweiligen Terminal anpassen zu 
müssen. Darüberhinaus stehen Ihnen diese Möglichkeiten zur Bildschirm- 
steuerung auch unter dem neuen APPLE-FORTRAN-System zur Verfü- 
gung. 


Tab. 1 Beschreibung des MISCINFO-Files 


Byte Referenz Wert Beschreibung 
1-62 Wird von SETUP.CODE offenbar 
nicht benutzt 
63 4.3.4 246 0 Lead-In-Zeichen für Bildschirm 
64 4.3.4 247 25  Cursor-Home-Position 
65 4.3.4 246 ll Löschen bis Zeilenende 
66 4.3.4 247 29 Löschen bis Bildschirmende 
67 4.3.4 247 28 Cursor nach rechts 
68 4.3.4 247 31 Cursor nach oben 
69 4.3.4 247 8 Backspace (Linkspfeil) 
70 unbekannt 
71 4.3.4 247 0 Zeile löschen 
72 4.3.4 246 12 Bildschirm löschen 
73 4.3.4 246 Präfix-Markierungen für Bildschirm- 
Kontrollzeichen 


Bit O0 - Cursor nach oben 

Bit 1 - Cursor nach rechts 

Bit 2 - Löschen bis Zeilenende 

Bit 3 - Löschen bis Bildschirmende 
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4.3.2 243 


4.3.2 243 


4.3.3 245 


4.3.3 245 


4.3.3 245 
4.3.3 245 
4.3.3 245 
4.3.3 244 
4.3.3 244 
4.3.3 244 
4.3.3 245 
4.3.2 243 
4.3.3 245 


4.3.3 246 
4.3.3 244 
4.3.3 246 


24 


79 


Bit 4 - Cursor-Home-Position 

Bit 5 - Backspace 

Bit 6 - Bildschirm löschen 

Bit 7 - Zeile löschen 

unbekannt 

Bildschirmhöhe 

unbekannt 

Bildschirmbreite 

unbekannt 

Taste zur Aufwärtsbewegung des Cur- 
sors Ctrl-O 

Taste zur Abwärtsbewegung des Cur- 
sors Ctrl-L 

Cursor-Links-Taste Ctrl-H 
Cursor-Rechts-Taste Ctrl-U 

Taste Ctrl-C für Dateiende 
Tastatursperre (Flush) Ctrl-F 
Break-Taste 

Stop-Taste Ctrl-S 

Taste zum Löschen von Zeichen Ctrl-H 
Nicht ausgebbares Zeichen? 

Zeichen zum Löschen einer Zeile Ctrl- 
x 

Editor-Escape-Taste ESC 
Lead-In-Zeichen für Tastatur 
Annahmetaste für Editor Ctrl-C 

Wird anscheinend nicht benutzt 
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(*$s+*) 
unit crtutilites; 


interface 


ver 


LUNMISCINFO 


procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 
procedure 


const 


file; 


CURSORHOME ; 

CURSORUP; 

CURSORDOWN ; 

CURSORLEFT; 

CURSORRIGHT; 

CLEARSCREEN; 

CLEARLINE(LINENUMBER : integer); 

ERASEOL; 

ERASEOS(LINENUMBER : integer); 
DISPLAY(VTAB,HTAB : integer; LINEOFTEXT : string); 
PROMPT(VTAB : integer; PROMPTLINE : string); 


implementation 


BLOCKSIZE = 512; 


t 


ype 
CRTCOMMAND = (LEADIN, UP, RIGHT, ERASEEOL, ERASEEOS, HOME, 


LEFT, CLEARS, CLEARL, DOWN); 


INPUTBUFFER = record 


var 


end; 


LOWERVTAB, UPPERVTAB, 
LOWERHTAB, UPPERHTAB, 
NUMOFBLOCKS, 


PREFIXCONTROL: integer; (* Variable mit 8 Flags zu je einem Bit, *) 
(* die bestimmt, ob vor dem Bildschirn- 
(* befehl der Lead-In Befehl stehen muss * 


(* oder nicht. 


CRTCONTROL : packed array [CRTCOMMAND] of char; 
PREFIXED : packed array [CRTCOMMAND] of boolean; 
INPUTPOINTER: “INPUTBUFFER; 

HEAPPOINTER : "integer; 


begin 


procedure CURSORHOME; 


if PREFIXED[HOME] then 
unitwrite(l1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[HOME],1); 


end; 


begin 


procedure CURSORUP; 


if PREFIXED[UP] then 
unitwrite(1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[UP],1); 


end; 


186 


MISCINFO ; packed array[l..BLOCKSIZE] of char; 


procedure CURSORDOWN; 
begin 
if PREFIXED[DOWN] then 
unitwrite(1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[DOWN] ,1); 
end; 


procedure CURSORLEFT; 
begin 
if PREFIXED[LEFT] then 
unitwrite(1l1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[LEFT],1); 
end; 


procedure CURSORRIGHT; 
begin 
if PREFIXED[RIGHT] then 
unitwrite(1,CRTCONTROL[LEADIN], 1); 
unitwrite(l1,CRTCONTROL[RIGHT],1); 
end; 


procedure CLEARSCREEN; 
begin 
if PREFIXED[CLEARS] then 
unitwrite(1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[CLEARS],1); 
end; 


procedure ERASEOL; 
begin 
if PREFIXED[ERASEEOL] then 
unitwrite(1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[ERASEEOL],1); 
end; 


procedure CLEARLINE; 
begin 
if LINENUMBER < LOWERVTAB then 
LINENUMBER := LOWERVTAB 
else if LINENUMBER > UPPERVTAB then 
LINENUMBER := UPPERVTAB; 
GOTOXY(O,LINENUMBER); 
ERASEOL; 
end; 


procedure ERASEOS; 
begin 
if LINENUMBER < LOWERVTAB then 
LINENUMBER := LOWERVTAB 
else if LINENUMBER > UPPERVTAB then 
LINENUMBER := UPPERVTAB; 
if PREFIXED[ERASEEOS] then 
unitwrite(1,CRTCONTROL[LEADIN],1); 
unitwrite(1,CRTCONTROL[ERASEEOS],1) 
end; 
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procedure DISPLAY; 
begin 
if VTAB < LOWERVTAB then 


VTAB := LOWERVTAB 


else if VTAB > UPPERVTAB then 


VTAB := UPPERVTAB; 


if HTAB < LOWERHTAB then 


HTAB := LOWERHTAB 


else if HTAB > UPPERHTAB then 


HTAB := UPPERHTAB; 
GOTOXY(HTAB,VTAB); 


WRITE(OUTPUT , LINEOFTEXT) ; 
end; 


procedure PROMPT; 
begin 
if VTAB < LOWERVTAB then 


VTAB := LOWERVTAB 


else if VTAB > UPPERVTAB then 


VTAB := UPPERVTAB; 
GOTOXY(0,VTAB); 


WRITE(OUTPUT,, PROMPTLINE); 


ERASEOL; 


end; 


begin (* Unitinitialisierung *) 


RESET(LUNMISCINFO, 


MARK(HEAPPOINTER); 
NEW(INPUTPOINTER); 
with INPUTPOINTER” do 
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begin 


'*SYSTEM.MISCINFO'); 


NUMOFBLOCKS := BLOCKREAD(LUNMISCINFO ,MISCINFO,1); 
CLOSE(LUNMISCINFO); 


PREFIXCONTROL := ORD(MISCINFO[73]); 


CRTCONTROL[LEADIN 
CRTCONTROL[ UP 
CRTCONTROL[ RIGHT 


CRTCONTROL[ ERASEEOL 
CRTCONTROL[ERASEEOS 


CRTCONTROL[ HOME 
CRTCONTROL[LEFT 
CRTCONTROL[CLEARS 
CRTCONTROL[CLEARL 
CRTCONTROL[ DOWN 


PREFIXED[ LEADIN 
PREFIXED[ UP 
PREFIXED[ RIGHT 
PREFIXED[ ERASEEOL 
PREFIXED[ERASEEOS 
PREFIXED[ HOME 
PREFIXED[LEFT 
PREFIXED[CLEARS 
PREFIXED[CLEARL 
PREFIXED[ DOWN 


u) bel Led bed el ed) nl bed) und bed 


MISCINFO[ 63]; 
MISCINFO[ 68]; 
MISCINFO[ 67]; 
MISCINFO[ 66]; 
MISCINFO[65]; 
MISCINFO[ 64]; 
MISCINFO[ 69]; 
MISCINFO[ 72]; 
MISCINFO[ 71]; 
CHR(10); 


false; 

ODD( PREFIXCONTROL 
ODD(PREFIXCONTROL 
ODD(PREFIXCONTROL 
ODD(PREFIXCONTROL 
ODD(PREFIXCONTROL 
ODD(PREFIXCONTROL 
ODD(PREFIXCONTROL 
ODD(PREFIXCONTROL 
false; 


div 
div 
div 
div 
div 
div 
div 


LOWERVTAB := 0; 
UPPERVTAB := ORD(MISCINFO[75]); 
LOWERHTAB := 0; 
UPPERHTAB := ORD(MISCINFO[77]); 
end; 
RELEASE(HEAPPOINTER); 


end. 
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David Lieberman 


Kleinbuchstaben, 
Invers- und Flash- 
Zeichen 


In der März/April-Ausgabe von Call-A.P.P.L.E zeigte Ron DeGroat einen 
raffinierten Patch für SYSTEM.APPLE, mit dem man Kleinbuchstaben un- 
ter Pascal verwenden kann, wenn man den Paymar Lower Case Adapter be- 
nutzt. Ich sprach mit ihm über diesen Patch und brachte den Einwand vor, 
daß damit die SYSTEM.APPLE-Datei permanent geändert würde. Er er- 
wähnt diesen Nachteil auch in seinem Artikel und rät jedem (jeder) Anwen- 
der(in), sich eine spezielle Diskette mit diesem Patch anzufertigen. 

Nachdem ich mit Ron gesprochen hatte, kam ich auf die Idee, diesen 
Patch in Maschinensprache zu implementieren und die SYSTEM.APPLE- 
Modifikation direkt in der Ram-Card vorzunehmen. Damit ist es nicht mehr 
notwendig, die Diskettenversion dieses Datei zu ändern. Der Patch läßt sich 
daher durch einen einfachen Kaltstart wieder löschen. Wenn Sie den Patch 
bei jedem Start Ihres Pascal-Systems anwenden wollen, können Sie die LCA- 
Prozedur in Ihre SYSTEM-STARTUP-Datei einbauen. 

In Abb.1 finden Sie ein Pascal-Programmbeispiel, in dem die LCA- 
Prozedur aufgerufen wird und damit Kleinschreibung ermöglicht. In Abb.2 
finden Sie die Assemblerprozeduren, die den Patch ausführen. Beachten Sie 
bitte: Die Darstellung von ‘‘Pseudo-Großbuchstaben‘‘ wird verhindert: 
Wenn der Paymar-Patch benutzt wird, lassen sich Großbuchstaben nach 
Eingabe des Ctri-R Befehls nicht mehr invertiert darstellen. 

Wenn Sie invertierte oder blinkende Zeichen darstellen wollen, können 
Sie das jedoch mit den in Abb.2 gezeigten Prozeduren erreichen. Für negati- 
ve Textausgabe können Sie beispielsweise folgende Befehlssequenz verwen- 
den: 


Gotoxy (0,4); 

Inverse; 

Write (“DIESER TEXT IST INVERTIERT‘‘); 
Normal]; 
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Program LcaPatch; 


Procedure Lca; 


External; 


(* Lca muss in LcaPatch gelinkt werden *) 


Begin 
Lca; 


Gotoxy(8,8); 
Write('"Pascal 1.1 mit Kleinbuchstabenanzeige'); 


End. 


.PROC LCA 


Abb. 1 Programmbeispiel für Lca-Aufruf 


;DIESE PROZEDUR AENDERT DAS PASCAL 1.1 SO IM BIOS, 
:DASS KLEINBUCHSTABEN MIT EINEM LOWERCASE-ADAPTER 
;AUSGEGEBEN WERDEN KOENNEN. DIESER PATCH FUNKTIONIERT 
;NUR MIT PASCAL 1.1 


;VON DAVE LIEBERMAN 12.6.81 


ADDR1 
RAMON 
RAMCLR 


[2 PROC 


.EQU ODAAB 
.EQU 0C083 
.EQU 0C088 


LDA RAMON 
LDA RAMON 


LDA #176. 

STA ADDRI1 

LDA #02. 

STA ADDRI+1 
LDA #0 

STA ADDR1+239. 


LDA RAMCLR 
RTS 


„END 


INVERSE 


;PROCEDURE INVERSE; 


;ZWEITE 4-K-BANK ANWAEHLEN 
;SCHREIBZUGRIFF ERMOEGLICHEN 


;GROSSBUCHSTABENKONVERSION UNTERDRUECKEN 


;‚PSEUDOGROSSBUCHSTABEN ABSCHALTEN 


;ZURUECKSCHALTEN AUF ERSTE BANK 


;KEINE PARAMETER 


;DIE NAECHSTEN DREI SUBROUTINEN ERMOEGLICHEN ES, 
;UNTER PASCAL INVERSE, NORMALE ODER BLINKENDE 
‚ZEICHEN IM NORMALEN APPLE TEXTFENSTER AUSZUGEBEN. 
;BEIM INVERSE-MODUS ERSCHEINEN DIE ZEICHEN SCHWARZ 
;‚AUF HELLEM HINTERGRUND. 
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;PROCEDURE NORMAL; 


„PROC 


LDA 
LDA 
LDA 
STA 
LDA 


RTS 


NORMAL 


0C083 ;ZWEITE 4-K-BANK AKTIVIEREN 
0C083 ;SCHREIBZUGRIFF ERMOEGLICHEN 
#00 


ODABO ;BITS 6 & 7 LOESCHEN 
0C088 ;ERSTE BANK EINSCHALTEN 
;UND GEGEN UEBERSCHREIBEN SCHUETIZEN 


‚KEINE PARAMETER 


‚NORMAL GIBT ZEICHEN WEISS AUF 
;SCHWARZEM HINTERGRUND AUS 


’ 


LDA 
LDA 
LDA 
STA 
LDA 
RTS 


.PROC 


0C083 
0C083 
#80 

ODABO 
0C088 


FLASH 


:PROCEDURE FLASH 


‚BIT 7 SETZEN 


‚KEINE PARAMETER 


‚FLASH GIBT BLINKENDE ZEICHEN AUS, 
sABWECHSELND NORMAL- UND INVERSE-MODUS 


0C083 
0C083 
#40 

ODABO 
0C088 


‚BIT 6 SETZEN, 


Abb. 2 Prozeduren für Invers- und Flash-Darstellung 
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Die einzige Einschränkung ist dabei, daß sich Kleinbuchstaben nicht inver- 
tiert oder blinkend ausgeben lassen. Bei dem Versuch, Kleinbuchstaben zu 
invertieren oder blinken zu lassen, erhalten Sie nur Unsinn auf dem Bild- 
schirm. 

Das Programm ‘‘LcaPatch‘‘ zeigt, wie man echte Kleinbuchstaben mit 
einem ‘‘Lower Case Adapter‘‘ ausgeben kann. Achten Sie darauf, daß dieser 
Patch nur mit der Pascal 1.1-Version funktioniert und mit anderen Modifi- 
kationen des BIOS (BASIC Input Output System) möglicherweise nicht 
kompatibel ist. 

Wenn man “LcaPatch‘‘ korrekt kompiliert, eingebunden und in SY- 
STEM.STARTUP umbenannt hat, wird das Programm bei jedem Booten 
des Betriebssystems aufgerufen. Da keine permanenten Änderungen vorge- 
nommen werden, ist dieser Patch relativ sicher. Will man die Anzeige von 
Kleinbuchstaben abschalten, braucht man nur den Namen von 
SYSTEM.STARTUFP zu ändern und das Betriebssystem neu zu booten. 
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Chris Wilson 


P-CODE DECODER 


(*$C COPYRIGHT 1981 CHRIS WILSON *) 
(* BENUTZEN SIE ZUM EDITIEREN UND KOMPILIEREN DEN SYSTEM-SWAPMODUS *) 
PROGRAM DECODE ; 


TYPE 
WORD = PACKED RECORD 
CASE INTEGER OF 
O0: (B: PACKED ARRAY [0..1] OF 0..255); 
l: (C: PACKED ARRAY [O..1] OF CHAR); 
2: (H: PACKED ARRAY [0..3] OF 0..15); 
3: (I: INTEGER); 
4: (P: * WORD) 
END; 
MTYPES = (UNDEF, PCODEMOST, PCODELEAST, PDP11, M8080, 
280, GA440, M6502, M6800, TI9900); 
SDRECORD = RECORD 
DISKINFO: ARRAY [0..15] OF 
RECORD 
CODELENG, 
CODEADDR : INTEGER 
END; 
SEGNAME: ARRAY [0..15] OF 
PACKED ARRAY [0..7] OF CHAR; 
SEGKIND: ARRAY [0..15] OF 
(LINKED, HOSTSEG, SEGPROC, UNITSEG, 
SEPRTSEG, UNLINKEDINTRINS, 
LINKEDINTRINS, DATASEG); 
TEXTADDR: ARRAY[O..15] OF INTEGER; 
SEGINFO: PACKED ARRAY [0..15] OF 
PACKED RECORD 
SEGNUM: 0..255; 
MTYPE: MTYPES; 
UNUSED: O..l1l; 
VERSION: 0..7 
END; 
(* UND ANDERE GUTE SACHEN *) 
END; 
FREEUNION = RECORD 
CASE INTEGER OF 
1: (BUF: PACKED ARRAY [0..511] OF 0..255); 
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2: (DICT: SDRECORD); 
END; 
STRINGl1 = PACKED ARRAY [O..1] OF CHAR; 
STRING3 = PACKED ARRAY [0..3] OF CHAR; 
STRING? = STRING[7]; 
PTYPE = (UB,SB,DB,B,W,X0,%X1,X2,X3,X4,X5,X6,X7,XX) ; 
OPREC = RECORD 
MNEMONIC: STRING?; 


VAR 
PDCOUNT, 
FIRSTADDR, 
FIRSTBLOCK, 
CURRENTBLOCK: INTEGER; 
ADDR: STRING3; 
F: TEXT; 
SOURCEFILE: FILE; 
SOURCENAME, 
DESTNAME: STRING; 
OPCODE: ARRAY [0..255] OF OPREC; 
BUF: PACKED ARRAY [0..511] OF 0..255; 
SD: FREEUNION; 
PD: ARRAY [0..149] OF INTEGER; 
HEXDIGIT: PACKED ARRAY [0..15] OF CHAR; 


PROCEDURE WAIT; 
(=—*) 


BEGIN 

IF DESTNAME = 'CONSOLE:' THEN 
BEGIN 
WRITELN; 
WRITEC'[WEITER MIT RETURN]'); 
READLN; 
END; 

END; 


PROCEDURE SKIP; 
Geh) 


BEGIN 

IF DESTNAME = 'CONSOLE:' THEN 
PAGE(F) 

ELSE 
WRITELN(F); 

END; 


PROCEDURE READBLOCK(LOC: INTEGER); 
* 


(duo 


BEGIN 
IF LOC < FIRSTADDR THEN 
REPEAT 
CURRENTBLOCK := PRED(CURRENTBLOCK); 
FIRSTADDR := FIRSTADDR-512; 
UNTIL LOC >= FIRSTADDR 
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ELSE IF LOC >= (FIRSTADDR+512) THEN 
REPEAT 
CURRENTBLOCK := SUCC(CURRENTBLOCK); 
FIRSTADDR := FIRSTADDR+512; 
UNTIL LOC < (FIRSTADDR+512); 


IF BLOCKREAD(SOURCEFILE,BUF,1,CURRENTBLOCK) <> 1 THEN 


BEGIN 


WRITELN("'BLOCKREAD: FEHLER BEIM LESEN DES QUELLFILES'); 


EXIT(DECODE) ; 
END; 
END; 


FUNCTION BYTEVAL(LOC: INTEGER): INTEGER; 


BEGIN 


IF (LOC >= FIRSTADDR) AND (LOC < FIRSTADDR+512) THEN 


BYTEVAL := BUF[LOC-FIRSTADDR] 


ELSE 
BEGIN 
READBLOCK(LOC) ; 
BYTEVAL := BYTEVAL(LOC); 
END; 
END; 


FUNCTION WORDVAL(LOC: INTEGER): INTEGER; 
* 


VAR 
W: WORD; 


BEGIN 

W.B[O] := BYTEVAL(LOC); 
W.B[1] := BYTEVAL(SUCC(LOC)); 
WORDVAL := W.I; 

END; 


PROCEDURE HEXBYTE(VALUE: INTEGER; VAR HEX: STRING1); 


(tassu=—*) 


VAR 
W: WORD; 


BEGIN 

W.I := VALUB; 

HEX[0O] := HEXDIGIT[W.H[1]]; 
HEX[1] := HEXDIGIT[W.H[O]]; 
END; 


PROCEDURE HEXWORD(VALUE: INTEGER; VAR HEX: STRING3); 


(#====——*) 
VAR 
W: WORD; 


BEGIN 

W.I := VALUE; 

HEX[0O] := HEXDIGIT[W.H[3]] 
HEX[1] := HEXDIGIT[W.H[2]]; 
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HEX[2] := HEXDIGIT[W.H[1 
HEX([3] := HEXDIGIT[W.H[O 
END; 


1]; 
1]; 


PROCEDURE DECODEPROC(PROC: INTEGER); 
) 


I— ame 


VAR 
IPC, 
JTAB, 
LEXLEVEL, 
ENTERIC, 
EXITIC, 
PARAMSIZE, 
DATASIZE, 
LASTCODE: INTEGER; 
HEX: STRING3; 


PROCEDURE ONEOP; 
——h) 


VAR 
I, 

MIN, 

MAX: INTEGER; 

BYTE: STRING]; 

HEX: STRING3; 


PROCEDURE HANDLEDB; 
BEGIN 
IPC := SUCC(IPC); 
HEXBYTE(BYTEVAL(IPC),BYTE); 
WRITE(F, BYTE:3); 
END; 


PROCEDURE HANDLEB; 

BEGIN 

IPC := SUCC(IPC); 

IF BYTEVAL(IPC) > 127 THEN 
BEGIN 
HEXBYTE(BYTEVAL(IPC)-128,BYTE); 
WRITE(F, BYTE:3); 

IPC := SUCC(IPC); 
HEXBYTE(BYTEVAL(IPC) ,BYTE); 
WRITE(F, BYTE); 

END 

ELSE 
BEGIN 
HEXBYTE(BYTEVAL(IPC) ‚BYTE); 
WRITE(F, BYTE:3); 

END; 

END; 


PROCEDURE HANDLEN; 
BEGIN 
HEXBYTE(BYTEVAL(IPC+2),BYTE); 
WRITE(F, BYTE:3); 
HEXBYTE(BYTEVAL(IPC+1) ,BYTE); 
WRITE(F, BYTE); 
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IPC 


:= IPC+2; 


END; 


PROCEDURE HANDLECSP; 
VAR S: STRING; 
BEGIN 


S 


CASE BYTEVAL(IPC) OF 


' (TOCHECK)'; 


! (NEW)'; 


De | Ve u 7 Zr | Sur _ Ber u u Su Ze En ee 


L 


(MOVELEFT)'; 
(MOVERIGHT)'; 

(EXIT)'; 

(UNITREAD)'; 
(UNITWRITE)'; 
(IDSEARCH)'; 
(TREESEARCH)'; 

(TIME)'; 

(FILLCHAR)'; 

(SCAN)'; 

(LOAD RESIDENT SEGMENT)'; 


(UNLOAD RESIDENT SEGMENT)'; 


(TRUNC)'; 
(ROUND) '; 
(MARK)'; 
(RELEASE)'; 
(IORESULT)'; 
(UNITBUSY)'; 
(PWROFTEN)'; 
(UNITWAIT)'; 
(UNITCLEAR)'; 
(HALT)'; 
(MEMAYAIL)'; 


END; (* CASE *) 


0: 5 
1:S: 
2:5 ;= 
3:5 := 
4.5 := 
5:5 ı= 
6: S :ı= 
17:5 := 
8: S := 
9; S = 
10: S := 
ll; S := 
21: S := 
22:5 := 
23: S := 
24:5 := 
32: 5 := 
33; S := 
34:5 := 
35:5 := 
36: S := 
37:5 := 
38: S := 
39: S':ı= 
40: S := 
WRITE(F, S); 
END; 


PROCEDURE HANDLECXP; 
VAR S: STRING; 


BEGIN 
HANDLEDB; 
IF BYTEVAL(PRED(IPC)) = O THEN 
BEGIN 
S .= ı, 
CASE BYTEVAL(IPC) OF 
2: S := ' (EXECERROR)'; 
3°S := ' (BUILD FIB)'; 
5: S := ' (RESET/REWRITE)'; 
6: S := ' (CLOSE)'; 
7:8 := ' (GET)'; 
8: S := ' (PUT)'; 
10: S := ' (EOF)'; 
11: S := '" (EOLN)'; 
12: S := ' (READ INTEGER)'; 
13: S := ' (WRITE INTEGER)'; 
16: S := ' (READ CHAR)'; 
17: S := ' (WRITE CHAR)'; 
18: S := '" (READ STRING)’; 
19: S := '" (WRITE STRING)'; 
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20: S := " (WRITE ARRAY OF CHAR)"; 
21: S z= ' (READLN)'; 
22: S := ' (WRITELN)'; 
23: S := ! (CONCAT)'; 
24: S := ' (INSERT)'; 
25: S := ' (COPY)'; 
26: S := ' (DELETE)'; 
27: S := ' (POS)'; 
28: S := ' (BLOCK READ/WRITE)'; 
29: S := '! (GOTOXY)'; 
END; (* CASE *) 
VRITE(F, S); 
END; 
END; 


BEGIN (* ONEOP *) 
WITH OPCODE[BYTEVAL(IPC)] DO 
BEGIN 
HEXWORD(IPC ,HEX) ; 
HEXBYTE(BYTEVAL(IPC) ,BYTE); 
WRITE(F, HEX, ' ', MNEMONIC, 
CASE Pl OF 
UB, SB, DB: 
HANDLEDB; 
B: 
HANDLEB; 
W: 
HANDLEW; 
XX: 
BEGIN 


END; 
END; (* CASE *) 
CASE P2 OF 
UB, SB, DB: 
HANDLEDB; 
B: 
HANDLEB; 
W: 
HANDLEW; 
X0: 
HANDLECSP; 
il: 
BEGIN 
(* LSA, LSP *) 
WRITECF, in 
FOR I := 17T BYTEVALCIPC) DO 
BEGIN 
IPC := SUCC(IPC); 
IF I MOD 16 = 0 THEN 
BEGIN 
WRITELN(F, 
WRITE(F, ' ':21, 
END; 
IF BYTEVAL(IPC) > 31 THEN 
WRITE(F, CHR(BYTEVAL(IPC))) 
ELSE 
WRITE(CF, '.'); 


rn), 


END; 
WRITE(F, 
END; 


..., 
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' (', BYTE, 


1), 1 %,7-LENGTH(MNEMONIC)); 


X2: 
BEGIN 
(* XJP *) 
IF NOT ODD(IPC) THEN 
(* MUSS WORTLAENGE HABEN *) 
IPC := SUCC(IPC); 
HANDLEW; 
HANDLEW; 
HANDLEW; 
MIN := WORDVAL(IPC-5); 
MAX := WORDVAL(IPC-3); 
FOR I := MIN TO MAX DO 
BEGIN 
WRITELN(F); 
WRITE(F, ' ':19); 
HANDLEW; 
HEIWORD(PRED(TPC)-WORDVALCPRED(IFC)), HEX); 
WRITE(F, ' (', )’); 
END; 
END; 
X3: 
BEGIN 
(* EQU, ETC. *) 
CASE BYTEVAL(IPC) OF 
2: WRITE(F, ' (REAL)'); 
4: WRITE(F, ' (STRING)'); 
6: WRITE(F, ' (BOOLEAN)'); 
8: WRITE(F, ' (SET)'); 
10: BEGIN 
HANDLEB; 
WRITE(F, " (BYTE ARRAY)'); 


WRITECF, ' (WORD)"); 
END; (* CASE *) 


(* LDC *) 
MAX := BYTEVAL(IPC); 
IF NOT ODD(IPC) THEN 
(* MUSS WORTLAENGE HABEN *) 
IPC := SUCC(IPC); 
FOR I := 1 TO MAX DO 
BEGIN 
WRITELN(F); 
WRITE(F, ' ':19); 
HANDLEW; 
END; 
END; 
X5: 
HANDLECXP ; 
X6: 
BEGIN 
(* FJP, UJP, EFJ, NFJ *) 
I := BYTEVAL(IPC); (* SPRUNGOFFSET *) 
IF I < 128 THEN 
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HEXWORD(SUCC(IPC)+I,HEX) 
ELSE 
BEGIN 
I := JTAB-(256-I); 
HEXWORD(I-WORDVAL(I),HEX); 
END; 
WRITE(F, ' (', HEX, ')"); 


BEGIN 

(* RNP, RBP *) 

IF IPC >= EXITIC THEN 
LASTCODE := IPG; 

END; 

X; 

BEGIN 

END; 
END; (* CASE *) 
END; (* WITH *) 

WRITELN(F); 

END; 


BEGIN (* DECODEPROC *) 
JTAB := PD[ PROC]; 
IF JTAB < O THEN 
BEGIN 
WRITELN; 
WRITELN('>>> FALSCHE PROZEDURADRESSE <<<'); 
END 
ELSE 
BEGIN 
LEXLEVEL := BYTEVAL(SUCC(JTAB)); 
IF LEXLEVEL > 127 THEN 
LEXLEVEL := LEXLEVEL-256; 
ENTERIC := (JTAB-2)-WORDVAL(JTAB-2); 
EXITIC := (JTAB-4)-WORDVAL(JTAB-4); 
PARAMSIZE := WORDVAL(JTAB-6); 
DATASIZE := WORDVAL(JTAB-8); 
LASTCODE := JTAB-9; 
SKIP; 
WRITELN(F, "PROCEDURCODE: '); 
WRITELN(F, '——— „; 
WRITELN(F); 
WRITELN(F, 'LEX LEVEL ', LEXLEVEL, ', PROZEDUR ', BYTEVAL(JTAB)); 
HEXWORD(ENTERIC,HEX); 
WRITELN(F, "ENTER IC ', ENTERIC, ' (', HEX, ')'); 
HEXWORD(EXITIC,HEX); 
WRITELN(F, "EXIT IC '!, EXITIC, ' (', HEX, ')"); 
HEXWORD(PARAMSIZE,HEX); 
WRITELN(F, "PARAMETERGROESSE ', PARAMSIZE, ' ('!, HEX, ')'); 
HEXWORD(DATASIZE,HEX); 
WRITELN(F, 'DATENGROESSE ', DATASIZE, ' (', HEX, ')'); 
WRITELN(F); 
IPC := ENTERIG; 
IF LEXLEVEL < -1 THEN 
WRITELN( '>>> FALSCHER LEXIKALISCHER LEVEL <<<') 
ELSE IF ENTERIC < O THEN 
WRITELN('>>> ENTER IC FALSCH <<<!) 
ELSE IF EXITIC < O THEN 


202 


WRITELN('>>> EXIT IC FALSCH <<<') 
ELSE 
REPEAT 
ONEOP; 
IPC := SUCC(IPC); 
UNTIL IPC > LASTCODE; 
END; 
WAIT; 
END; 


PROCEDURE CHOOSEPROC ; 


VAR 
I: INTEGER; 
DONE: BOOLEAN; 


BEGIN 

REPEAT 
PAGE(OUTPUT); 
WRITELN( 'ZU DECODIERENDE PROZEDUR: '); 
WRITELN; 
WRITELNC'[1..', PDCOUNT, ']'"); 
WRITELN; 


WRITELN; 
WRITELN('-1 FUER ENDE'); 
WRITELN; 
WRITE( 'PROZEDUR: '); 
READLN(T); 
DONE := I < 0; 
IF I IN [1..PDCOUNT] THEN 
DECODEPROC(I); 
UNTIL DONE; 
END; 
PROCEDURE READPROCDICT(SEG: INTEGER); 
( $-- 2222-22 —8* 
VAR 
I, 
LOC, 
SEGLENGTH: INTEGER; 
HEX: STRING3; 
BEGIN 
WITH SD.DICT DO 
BEGIN 


FIRSTADDR := 0; 


FIRSTBLOCK := DISKINFO[SEG].CODEADDR; 


CURRENTBLOCK := FIRSTBLOCK; 
SEGLENGTH := DISKINFO[SEG].CODELENG; 
END; 

LOC := PRED(SEGLENGTH); 

READBLOCK(LOC) ; 

PDCOUNT := BYTEVAL(LOC); 

LOC := PRED(LOC); 


SKIP; 

WRITELN(F, "'PROZEDURDICTIONARY:'); 
WRITELN(F, '———— -  —-—'); 
WRITELN(F); 


WRITELN(F, "SEGMENT ', BYTEVAL(LOC)); 
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WRITELN(F, "PROZEDURZAEHLER ', PDCOUNT); 
WRITELN(F); 
FOR I := 1 TO PDCOUNT DO 
BEGIN 
LOC := LOC-2; 
PD[I] := LOC-WORDVAL(LOC); 
HEXWORD(PD[I],HEX); 
WRITELN(F, 'PROZEDUR ', I:2, ', ADRESSE ', PD[I]:5, ' (', HEX, ")"); 


PROCEDURE CHOOSESEGMENT; 


( Ka=oomoooomocm 


VAR 
I: INTEGER; 
ANSWER: CHAR; 
DONE: BOOLEAN; 


BEGIN 
WITH SD.DICT DO 
REPEAT 
PAGE(OUTPUT); 
WRITELN('ZU ANALYSIERENDES SEGMENT: '); 
WRITELN; 
FOR I := 0 TO 15 DO 
IF SEGNAME[I] <> ' ' THEN 
WRITELN(I:2, ' '", SEGNAMELI]); 
WRITELN; 
WRITELN('-1 FUER ENDE!'); 
WRITELN; 
WRITE('SEGMENT: '); 
READLN(I); 
DONE := I <0; 
IF I IN [0..15] THEN 
IF SEGINFO[I].MTYPE <> PCODELEAST THEN 
BEGIN 
WRITELN( 'SEGMENT KEIN P-CODE '); 
IF SEGINFO[I].MTYPE IN [UNDEF, PCODEMOST] THEN 
BEGIN 
WRITE( 'TROTZDEM VERSUCHEN ZU DECODIEREN (J/N): '"); 
READLN(ANSWER); 
IF ANSWER IN ['J','j'] THEN 
READPROCDICT(I); 


ELSE 
READPROCDICT(I); 
UNTIL DONE; 
END; 
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PROCEDURE READSEGDICT; 


(mt) 


VAR 
I: INTEGER; 
S: STRING; 


BEGIN 
IF BLOCKREAD(SOURCEFILE,SD.BUF,1,0) <> 1 THEN 
BEGIN 
WRITELN( 'FEHLER BEIM LESEN DES SEGMENT-DICTIONARIES'); 
EXIT(DECODE) ; 
END; 
WITH SD.DICT DO 
BEGIN 
I :=0; 
SKIP; 
WRITELN(F, "SEGMENT DICTIONARY:'); 
WRITELN(F, '— ar 
REPEAT 
IF SEGNAME[I] <> ' ' 'THEN 
WITH SEGINFO[I] DO 
BEGIN 
WRITELN(F); 
WRITELN(F, "SEGMENT #', SEGNUM); 
WITH DISKINFO[I] DO 
WRITELN(F, 'LAENGE ', CODELENG, ', ADRESSE ', CODEADDR); 
WRITELN(F, 'SYSTEM VERSION = ', VERSION); 
S ı= ; 
CASE MTYPE OF 
UNDEF: 
S := '"UNDEFINIERT'; 
PCODEMOST: 
S := "P-CODE (MSB ZUERST)'; 
PCODELEAST: 
S := 'P-CODE (LSB ZUERST)'; 
PDP11: 
S := 'PDP11'; 
M8080; 
S := '8080'; 
Z80: 
S ı= 
GA4AO: 
S ı= 
M6502:; 
S .—_ 


'z80'; 
'GA44O': 


ı= '6502'; 
M6800: 
S := '6800'; 
TI9900: 
S := 'TI9900'; 
END; (* CASE *) 
WRITELN(F, "CODETYP IST ', 5); 
Sı=''; 
CASE SEGKIND[I] OF 
LINKED: 
S := 'LINKED'; 
HOSTSEG: 
S := 'HOST SEGMENT'; 
SEGPROC: 
S := 'SEGMENTPROZEDUR'; 
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UNITSEG: 
S := 'UNITSEGMENT'; 
SEPRTSEG: 
S := 'SEPARATE SEGMENT': 
UNLINKEDINTRINS: 
S := "UNLINKED INTRINSIC'; 
LINKEDINTRINS: 
S := "LINKED INTRINSIC'; 
DATASEG: 
S := 'DATA SEGMENT'; 
END; (* CASE *) 
WRITELN(F, SEGNAME[I], ' (', Ss, ")'); 
END; 
I := SUCC(I); 
UNTIL I > 15; 
END; 
WAIT; 
CHOOSESEGMENT; 
END; 


PROCEDURE INITIALIZE; 


VAR 
I: INTEGER; 
S: STRING7; 


PROCEDURE INIT(OP: INTEGER; MNE:STRING7; Xl, X2: PTYPE); 
BEGIN 
WITH OPCODE[OP] DO 
BEGIN 


PROCEDURE INITI; 

BEGIN 

INIT(128,'ABI' ‚XX,XX); (* 80 *) 
INIT(129,'ABR' ‚XX,XX); (* 81 *) 
INIT(130,'ADI' ‚XX,XX); (* 82 *) 
INIT(131,'ADR' ‚XX,XX); (* 83 *) 
INIT(132,'LAND' ‚XX,XX); (* 84 *) 
INIT(133,'DIF' ‚XX,XX); (* 85 *) 
INIT(134,'DVI! ‚XX,XX); (* 86 *) 
INIT(135,'DVR' XX,XX);  (* 87 *) 
INIT(136,'CK' XXX); (* 88 *) 
INIT(137,'FLO'  ‚XX,XX); (* 89 *) 
INIT(138,'FLT' XX,XX);  (* 8A *) 
INIT(139, "INN!  ‚XX,XX); (C* 8B *) 
INIT(140, "INT! XXX); (CK 8C *) 
INIT(141,'LOR' ‚XX,XX); (C* 8D *) 
INIT(142, 'MODI 
INIT(143,'MPI!  ‚XX,XX); (* 8F *) 
INIT(144,'MPR' XX,XX); C* 90 *) 
INIT(145,'NGI' ‚XX,XX); (* 91 *) 
INIT(146,'NCR'  XX,WX); (* 92 *) 
INIT(147,'LNOT' ‚XX,XX); (* 93 *) 
INIT(148,'SRS'  XX,XX); C* 94 *) 


5 
® 
N 
Fu 
%* 
© 
[5.>] 
* 
u 


206 


INIT(149,'SBI'  ‚XK,XX);  C* 95 *) 
INIT(150,'SBR' XXX); (* 96 *) 
INIT(151,'SCS'  .XK.XN); (* 97 %) 
INIT(152, 'SQL' KR); (* 98 *) 
INIT(153,'SOR'  XXÄXX): (99 *) 
INIT(154,'STO" RX); (* 9A *) 
INIT(155, 'IxXS' XX,XX); (* 9B *) 
INIT(156,"UNI'  XX,XX): O8 9C *) 
INIT(157,'LDE' ,UB, B); (* 9D *) 
INIT(158,'CSP'_ ‚UB,X0); (* 9E *) 
INIT(159, 'LDCN' XX.XX)} C* OF &*) 
INIT(160,'ADJ' UB.KK); (* AO *) 
INIT(l6L,'EJP' ,SB.X6); (* AL *) 
INIT(162,'INC' , B.X): (* A2 ®) 
INIT(163, "IND , B.XX): 
INIT(164,'IXA'  , BuXX); (* Au *) 
INIT(165,'LAO' ,B,XX); (* A5 *) 
INIT(166,'LSA'  „UB,X1); (* A6 *) 
INIT(167,'LAE' .UB, BJ): (* A7 *) 
INIT(168,'MOV'  , BuXX); (+ AB *) 
INIT(169, "LDO' B,XX); (* A9 *) 
INIT(170,'SAS'  JUB,XX); (* AA *) 
INIU(171,'SR0' ,„B,XX); (* AB *) 
INIT(172,'XJP'  XK.X2); (* AC *) 
INIT(173, 'RNP' DB,X7); (* AD *) 
INIT(174,'CIP'  JUB.XK); (* AB *) 
INIT(175,'EQU" ,DB,X3); (* AF *) 
END; 

PROCEDURE INIT2: 
BEGIN 
INIT(176,'GEQ' ,‚DB,X3); (* BO *) 
INIT(177,'GRT' ,‚DB,X3); (* Bl *) 
INTTC1TE, LA IE (+ “ e 
INIT(179,'LDIC' ‚UB,X4); 
INIT(180, 'LEQ' DB: (x a4 e 
INITC1B2" "op! ‚DB, “ (+ B6 *) 
Bm Mad: CR 
INTLISS up" ‚SB,X6); (* B9 *) 
INIT(186,'LDP' „IX,XX); (* BA *) 
INIT(187,'STP' KK); (* BB *) 
INIT(188, 'LDM' ‚UB,XX); (* BC *) 
INIT(189,'STM'  JUB,XX); (* BD *) 
INIT(190,'LDB' „XX,XX); (* BE *) 
INIT(191,'STB' ,XX,XX); (* BF %*) 
INIT(192,'IXP' ‚„UB,UB); (* CO *) 
INIT(193,'RBP'  „DB,X7); (* Cl *) 
INIT(194,'CBP'  „UB,XX); (* C2 *) 
INIT(195 , "EQUL' ‚„XX,XX); (* C3 *) 
INIT(196,'GEQI' „XXX; (+ CA *) 
INIT(197,'GRTI' ‚XX,XX); (* CS *) 
INIT(198,'LLA" , B,XX); Ok C6 *) 
INIT(199,'LDCL' , W.XN): (* C7 *) 
INIT(200,'LEQT' ‚XX,XX); (* CB *) 
INIT(201,'LESI' ‚XX,XX); (* C9 *) 
INIT(202,'LDL' , B,XX); (C* CA *) 
INIT(203, 'NEQI' „XX,XX); (* CB *) 
INIT(204,'STL' „BRX); (* CC *) 
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INIT(205, 'CXP'! 
INIT(206, 'CLP' 
INIT(207, 'CGP' 
INIT(208, 'LPA' 
INIT(209, 'STE' 
INIT(210,'NOP' 
INIT(211,'EFJ' 
INIT(212,'NFJ' 
INIT(213, 'BPT' 
INIT(214, 'XIT' 
INIT(215, 'NOP' 
END; 


PROCEDURE INIT3; 
BEGIN 
INIT(216,'SLDL1' 
INIT(217, 'SLDL2' 
INIT(218, 'SLDL3' 
INIT(219, 'SLDL4' 
INIT(220, 'SLDL5' 
INIT(221, 'SLDL6' 
INIT(222, 'SLDL7' 
INIT(223, 'SLDL8' 
INIT(224, 'SLDL9' 
INIT(225, 'SLDL10' 
INIT(226, 'SLDL11' 
INIT(227, 'SLDL12' 
INIT(228, 'SLDL13' 
INIT(229, 'SLDL14' 
INIT(230, 'SLDL15' 
INIT(231, 'SLDL16' 
INIT(232, 'SLDOL' 
INIT(233, 'SLDO2' 
INIT(234, 'SLDO3' 
INIT(235, 'SLDO4' 
INIT(236, 'SLDOS' 
INIT(237, 'SLDO6' 
INIT(238,'SLDO7' 
INIT(239, 'SLDO8' 
INIT(240, 'SLDO9' 
INIT(241,'SLDO10' 
INIT(242, 'SLDO11' 
INIT(243, 'SLDO12' 
INIT(244,'SLDO13' 


INIT(245, 'SLDO14', 


INIT(246, 'SLDO15' 
INIT(247,'SLDO16' 
INIT(248, 'SINDO’ 
INIT(249,'SINDL' 
INIT(250, 'SIND2' 
INIT(251,'SIND3' 
INIT(252,'SIND4' 
INIT(253, 'SINDS' 
INIT(254, 'SIND6' 
INIT(255, 'SIND?' 
END; 
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(* CD *) 


(* 


CE 


*) 


BEGIN (* INITIALIZE *) 

FOR I := 0 TO 127 DO 
BEGIN 
STR(I,S); 
S := CONCATC'SLDC',S); 
INIT(I,S,XX,XX); 
END; 

INITI; 

INIT2; 

INIT3; 

END; 


(* 


BEGIN 
HEXDIGIT := '0123456789ABCDEF'; 
PAGE(OUTPUT); 
WRITELN( 'DECODE (25.6.81)'); 
WRITELN( 'COPYRIGHT 1981 CHRIS WILSON'); 
WRITELN; 
WRITELN(C "INITIALISIERUNG...'); 
INITIALIZE; 
WRITELN; 
WRITE( 'QUELLFILE: '); 
READLN(SOURCENAME) ; 
IF SOURCENAME = '' THEN 
EXIT(DECODE) ; 
IF POS('.CODE' ‚SOURCENAME) = O0 THEN 
IF POS('SYSTEM.',SOURCENAME) = O0 THEN 
IF SOURCENAME[LENGTH(SOURCENAME)] <> '.' THEN 
SOURCENAME := CONCAT(SOURCENAME, ' .CODE!') 
ELSE 
DELETE(SOURCENAME ‚ LENGTH(SOURCGENAME) ,1); 
WRITE('ZIELFILE: '); 
READLN(DESTNAME) ; 
IF DESTNAME = '' THEN 
DESTNAME := "CONSOLE: ' 
ELSE IF POS('.TEXT',DESTNAME) = O0 THEN 
IF DESTNAME[LENGTH(DESTNAME)] <> ':" THEN 
IF DESTNAME[LENGTH(DESTNAME)] <> '.' THEN 
DESTNAME := CONCAT(DESTNAME, '.TEXT') 
ELSE 
DELETE(DESTNAME, LENGTH(DESTNAME) ‚,1); 
RESET(SOURCEFILE ,SOURCENAME) ; 
REWRITE(F,DESTNAME); 
READSEGDICT; 
CLOSE(F,LOCK); 
END, 


HAUPTPROGRAMM ========= *) 
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Chris Wilson 


Ein Pascal- 
Textformatierer 


Die meisten kommerziellen Textverarbeitungs-Systeme bestehen in Wirklich- 
keit aus zwei Programmen: einem Bildschirm-orientierten Editor und einem 
Textformatierer. Da das Pascal-Betriebssystem bereits über einen sehr guten 
Editor verfügt, fehlt zur Textverarbeitung in Pascal nur noch das Formatier- 
programm. 

In dem ausgezeichneten Buch Software Tools von Kernigham und Plau- 
ger findet sich eine Reihe nützlicher Programme, darunter auch ein Textfor- 
matierer. Ich habe deren FORMAT-Programm von Ratfor in Pascal über- 
setzt und diverse (von den Autoren vorgeschlagene) Erweiterungen vorge- 
nommen. Das Programmlisting finden Sie am Ende dieses Kapitels. 

Die von FORMAT zu verarbeitenden Dateien bestehen aus einer Mi- 
schung von Befehlszeilen (die das Ausgabeformat beschreiben) und Textzei- 
len. Jede Zeile, die mit einem Punkt beginnt (.), wird als Befehlszeile angese- 
hen. Unverständliche Befehlszeilen werden einfach ignoriert. 

Auf den Punkt einer Befehlszeile folgt ein aus zwei Buchstaben bestehen- 
der Befehl. Zu manchen Befehlen gibt es optionale Parameter, die vom Be- 
fehlsnamen durch mindestens ein Leerzeichen getrennt sein müssen. Bevor 
die Befehlsnamen interpretiert werden, werden sie Zeichen für Zeichen in 
Großbuchstaben umgewandelt; man kann sie daher als Groß- oder Klein- 
buchstaben eingeben. 

So sorgt beispielsweise der Befehl: 


in 10 
für eine Einrückung von 10 Spalten. 

Zur Angabe numerischer Parameter für Befehle wie ““.in‘‘ gibt es mehre- 
re Möglichkeiten. Die erste ist, den Parameter ganz wegzulassen, mit dem 
Resultat, daß der Formatierer einen Vorgabewert verwendet (beim .in- 
Befehl den Wert 0): 


in 
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Die zweite Möglichleit ist die direkte Parametereingabe: 
in 10 


Die dritte Möglichkeit besteht darin, die (positive oder negative) Differenz 
zwischen dem aktuellen und dem gewünschten Wert einzugeben: 


in +5 
in -5 


FORMAT verfügt über zwei Modi zur Verarbeitung von Textzeilen, nämlich 
den ‘Wortmodus‘‘ und den ‘‘Zeilenmodus‘“‘. 

Im Wortmodus werden die Textzeilen in Wörter zerlegt, die dann unter 
Beachtung von Randbegrenzungen in neuformatierte Ausgabezeilen umge- 
speichert werden. Die Ausgabezeilen werden vor der Ausgabe durch Hinzu- 
fügen von Leerzeichen rechtsbündig formatiert. Man bezeichnet diesen Pro- 
zess als ‘“Füllen‘‘ (filling). 

Im Zeilenmodus werden die Textzeilen ohne interne Umgruppierungen 
ausgegeben, wobei aber immer noch Formatierungsparameter wie Randbe- 
grenzung, mittiges Schreiben oder Unterstreichungen berücksichtigt werden. 

Der Füllmodus wird vorgabemäßig eingeschaltet und läßt sich mit dem 
Befehl: 


.nf 
abschalten (no filling). Mit 

‚fi 
kann er wieder eingeschaltet werden. Wenn eine Ausgabezeile beim Aus- 
schalten des Füllmodus erst teilweise gefüllt ist, wird diese Zeile sofort ausge- 
geben, bevor weitere Formatierkommandos berücksichtigt werden. Man 
nennt diesen Vorgang ‘‘Break‘‘ (Abbruch). Etliche Formatierbefehle impli- 
zieren ein Break; mit dem Befehl: 

.br 
kann man ein Break auch explizit auslösen. 

Der Einrückungsbefehl gibt an, um wieviele Spalten die nachfolgenden 


Ausgabezeilen eingerückt werden sollen (linker Rand): 


in 10 
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Der ‘“Temporary Indent‘‘-Befehl (etwa ‘“vorübergehende Einrückung‘‘) löst 
ein Break aus und bestimmt, um wieviele Spalten die nächste Zeile einzu- 
rücken ist: 


ti +5 


Durch den Befehl ‘Right Margin‘‘ (rechter Rand), wird angegeben, bei wel- 
cher Spalte der rechte Rand des Textes liegen soll: 


‚rm 72 


Der Füllmodus berücksichtigt die jeweils durch ““.rm‘‘, ““.ti‘‘ und ““.in‘‘ fest- 
gelegte Textbegrenzung. 

Der ‘‘Center‘‘-Befehl erzeugt ein Break und sorgt dann dafür, daß die 
nachfolgenden Zeilen mittig geschrieben werden, und zwar solange, bis ent- 
weder eine zuvor angegebene Zeilenanzahl zentriert worden ist oder ein Zen- 
trierbefehl mit dem Wert 0 auftritt. Der Befehl: 


.ce 
«Textzeile» 


zentriert auf diese Weise eine Zeile, während 
.cen 
«Textzeile 1» 
«Textzeile 2» 
«Textzeile n» 
insgesamt n Zeilen zentriert, die im voraus gezählt werden. Mit 
.ce 500 


«Textzeile 1» 
«Textzeile 2» 


«Textzeile n» 
.ce 0 


lassen sich n Zeilen zentrieren, die nicht im voraus gezählt wurden (mitn «= 
500). 
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Nach Aufruf des ‘““Underline‘‘(Unterstreichungs)-Befehls werden alle 
Zeilen unterstrichen, bis entweder die zuvor angegebene Zeilenanzahl er- 
reicht ist oder bis ein Unterstreichnungbefehl mit dem Wert O0 gefunden wird: 


‚ul 2 
«Textzeile 1» 
«Textzeile 2» 


Dieser Befehl ähnelt dem Zentrierbefehl mit dem Unterschied, daß hier kein 
Break ausgelöst wird, so daß man im Füllmodus einzelne Wörter unterstrei- 
chen kann: 


«Textzeile» 

‚ul 

« zu unterstreichender Text» 
«Textzeile» 

«Textzeile» 


Man kann Zentrier- und Unterstreichungsbefehle auch miteinander verbin- 
den: 


.ce 
‚ul 
«Zu zentrierender und zu unterstreichender Text» 


Zwischen zwei Ausgabezeilen wird automatisch eine Textzeile freigelassen. 
Der ‘Line Space‘“(Zeilenvorschub)-Befehl dient dazu, den Zeilenvorschub 
zwischen den Ausgabezeilen zu ändern. Gibt man den Wert ‘“2‘“ ein, so wird 
der Zeilenvorschub verdoppelt: 


‚ls 2 


Der ‘‘Space‘‘(Leerzeilen)-Befehl erzeugt ein Break und gibt dann Leerzeilen 
aus, bis die angegebene Anzahl leerer Zeilen erzeugt wurde oder ein Seite- 
nende erreicht ist: 


‚sp 2 


Leerzeilen, die durch einen Zeilenvorschub von mehr als eins erzeugt wer- 
den, entstehen als ein Nebenprodukt beim Schreiben der aktuellen Ausgabe- 
zeile. Da bei einem Break die aktuelle Ausgabezeile ausgegeben wird, wenn 
sie nicht leer ist, kann ein Zeilenvorschub als Nebeneffekt eines Breaks auf- 
treten. Es ist wichtig, dieses Phänomen zu verstehen, da hierdurch mehr 
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Leerzeilen erzeugt werden können, als man bei Anwendung des Space- 
Befehls erwarten würde. 

Leere Textzeilen und Zeilen, die mit Leerzeichen beginnen, werden be- 
sonders behandelt, wodurch sich die Anzahl der explizierten Formatierbe- 
fehle verringert. 

Beim Auftreten einer Leerzeile wird ein Break ausgelöst (mit dem ent- 
sprechenden Zeilenabstand für die aktuelle Ausgabezeile) und danach eine 
Leerzeile ausgegeben (ebenfalls mit dem entsprechenden Zeilenabstand). 

Zeilen, die nicht leer sind, aber mit Leerzeichen beginnen, erzeugen ein 
Break und eine temporäre Einrückung, die der Anzahl der Leerzeichen ent- 
spricht, mit denen die Zeile beginnt. 

Der ‘‘Need‘‘-Befehl (etwa: ““Reservierungs‘‘-Befehl) bewirkt ein Break. 
Danach wird festgestellt, ob die angegebene Zahl von Ausgabezeilen noch 
auf die aktuelle Seite paßt; wenn nicht, wird ein Seitenvorschub erzeugt. 


.ne 10 


Beim ‘‘Need‘‘-Befehl wird der Zeilenvorschub berücksichtigt. Damit wird 
ein Wert von 10 automatisch in 20 umgerechnet, wenn man doppelten Zei- 
lenabstand gewählt hat. 

Die Befehle ‘“Header‘‘ (Seitenkopf) und “‘Footer‘‘ (Seitenabschluß, Fuß- 
note) dienen dazu, die oberste und unterste Zeile für die nachfolgenden Sei- 
ten zu bestimmen. 


‚he/links/Mitte/rechts/ 
.fo/links/Mitte/rechts/ 


Das ‘‘/‘‘-Zeichen ist ein frei wählbares Begrenzungszeichen, das dazu dient, 
die drei Teile eines laufenden Titels voneinander zu trennen. Der linke Teil 
wird linksbündig, der rechte Teil rechtsbündig und der mittlere Teil mittig 
geschrieben. Die dabei benutzten Randbreiten sind diejenigen, die zur Verar- 
beitungszeit des Befehls und nicht etwa zur Zeit des Titelausdrucks gültig 
sind. 

Erscheint irgendwo in einem der drei Teile ein ‘‘ #‘‘-Zeichen, so wird es 
durch die aktuelle Seitennummer ersetzt. Jeder der drei Teile kann leer sein. 


‚he ‘°25.Jul.84°°**Seite #°“ 


Durch Angabe eines leeren Parameters wird der entsprechende Titel ge- 
löscht: 


.he 
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Der ‘‘Begin Page‘‘(Neue Seite)-Befehl bewirkt ein Break. Danach wird die 
aktuelle Seite (falls vorhanden) abgeschlossen (Ausdruck der Fußzeile usw.); 
danach wird mit der neuen Seite begonnen: 

.bp 
Durch einen Befehl wie: 

‚bp 45 
wird die Seitennummer der nächsten Seite auf den entsprechenden Wert fest- 
gelegt. 

Der ‘‘Page Length‘‘(Seitenlängen)-Befehl legt fest, wie viele Zeilen eine 

Seite haben soll: 

.pl 66 


In Tabelle 1 finden Sie das Seitenformat inclusive der Kopf- und Fußzeile. 


Tab. 1: Seitenformat 


Zeile Bedeutung 


[Kopfzeile] 


[1. Ausgabezeile] 
[2. Ausgabezeile] 


Nun 28 D — 


pl-5 [vorletzte Ausgabezeile] 
pi-4 [letzte Ausgabezeile] 
pl-3 

pl-2 

pl-1 [Fußzeile] 

pl 


Der ‘‘Source‘‘(Quelltext)-Befehl ermöglicht es, eine weitere Datei einzu- 
schließen: 


‚so «Dateiname» 
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Dieser Befehl ähnelt der ‘““Include‘‘-Option des Pascal-Compilers. 

Die letzten Befehle sind ‘“Define‘‘ (Definieren) und ‘End Define‘‘ (Defi- 
nitionsende). Mit ihnen können Sie eigene parametrische Befehle definieren, 
die sowohl aus Formatbefehlen als auch aus Textzeilen bestehen: 


.de pl 
.ne 4 
‚sp1 
in 10 
‚rm 72 
ti +5 
‚en 


Definitionsnamen müssen wie normale Befehlsnamen zwei Zeichen lang 
sein. Wenn Sie wollen, können Sie damit sogar bestehende Befehlsnamen 
umdefinieren. Die Definitionen werden anhand ihres Namens aufgerufen: 


.pl 


Innerhalb der Definition stehende Textparameter werden durch die Notation 
eg‘, **$2°“ usw. bezeichnet. Die Zahl hinter dem Dollarzeichen gibt an, auf 
welchen Parameter Bezug genommen wird, und darf nur im Bereich 1 bis 9 
liegen. Die Parameterreferenzen brauchen nicht durch Leerzeichen getrennt 
zu werden. 


.de fl 

.ti 60 

$1 

‚sp 2 

Lieber $2: 

‚Sp 1 

Vielen Dank für Ihren letzten Beitrag zu Call-A.P.P.L.E. 
mit dem Titel: 
.ce 

‚ul 

‚en 
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Wird eine parametrische Definition aufgerufen, so werden die aktuellen Pa- 
rameter nach dem Definitionsnamen angegeben. Sollen in einem Parameter 
Leerzeichen auftreten, so kann man ihn auch in Hochkommata oder Anfüh- 
rungsstriche einschließen: 


fl ‘‘26.Juli 1983°* Chris 
Ein Pascal-Textformatierprogramm 


Nicht spezifizierte Parameter werden durch leere Strings ersetzt, überflüssige 
Parameter ignoriert. 


Tabelle 2 enthält eine Übersicht über die verschiedenen Befehle und de- 
ren Vorgabewerte: 


Tab. 2: Befehlsübersicht 


Befehl Vorgabe- Break 


wert 
.bpn n= +1 ja 
.br ja 
‚cen n=|1 ja 
.de ja 
‚en nein 
fi ja 
‚fo //// nein 
.he //// nein 
inn n = 0 nein 
isn n= | nein 
‚nen n=|1 ja 
.nf ja 
pin n = 66 nein 
mn n = 80 nein 
‚so nein 
‚spn n=|1 ja 
un n = 0 ja 
uln n=|] nein 


Der Quelltext des Formatierprogramms ist zu lang, um als einzelne Datei 
editiert werden zu können. Er wurde daher in zwei Textdateien mit den Na- 
men FORMAT.TEXT und FORMAT.1.TEXT zerlegt, die im folgenden in 
dieser Reihenfolge abgedruckt sind. 
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(*$S+*) 
(*$C Copyright (c) 1981 Chris Wilson *) 
PROGRAM FORMAT; 


CONST 
HUGE = 1000; 
MAXDEFPOOL = 5000; 
PAGEWIDTH = 80; 
PAGELENGTH = 66; 


TYPE 
STRING255 = STRING[255]; 
ARGTYPE = (DEFAULTED, RELPLUS , RELMINUS , ABSOLUTE) ; 
CMDTYPE = (UNKNOWN, DEFINED,BP,BR,CE,DE,EN,FI,FO, 
HE,IND,LS,NE,NF,PL,RM,SO,SP,TI,UL); 
TITLEINFO = RECORD 
EMPTY: BOOLEAN; 
LEFTM, 
RIGHTM: INTEGER; 
LEFTS, 
CENTERS, 
RIGHTS: STRING255 
END; 
ENTRYP = * ENTRY; 
ENTRY = RECORD 
NAME: PACKED ARRAY [1..8] OF CHAR; 
LLINK, 
RLINK: ENTRYP; 
TYP: CMDTYPE; 
START, 
LINES: INTEGER 
END; 


VAR 
BACKSPACE: CHAR; 
DOTCOUNT, 
LINECOUNT: INTEGER; 
EMITPAGE, 
INCLUDING, 
NONCONSOLE: BOOLEAN; 
INCLUDEFILE, 
SOURCEFILE, 
DESTFILE: TEXT; 
SOURCENAME, 
DESTNAME: STRING; 
FILL: BOOLEAN; 
LSVAL, (* ZEILENABSTAND *) 
INVAL, (* EINRUECKUNG *) 
RMVAL, (* RECHTER RAND *) 
TIVAL, (* TEMPORAERE EINRUECKUNG *) 
CEVAL, (* ANZAHL DER ZU ZENTRIERENDEN ZEILEN *) 
ULVAL, (* ANZAHL DER ZU UNTERSTREICHENDEN ZEILEN *) 
CURPAGE, (* SEITENNUMMER *) 
NEWPAGE, (* NAECHSTE SEITENNUMMER *) 
LINENO, (* NAECHSTE AUSZUGEBENDE ZEILE *) 
PLVAL, (* SEITENLAENGE IN ZEILEN *) 
MIVAL, (* OBERER RAND, INCL. KOPFZEILE *) 
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M2VAL, (* RAND NACH KOPFZEILE *) 

M3VAL, (%* RAND NACH DER LETZTEN TEXTZEILE *) 

MAVAL, (* UNTERER RAND INCL. FUSSZEILE *) 

BOTTOM, (* LETZTE ZEILE AUF DER SEITE *) 

OUTW,  (* BREITE DES AKTUELL IN OUTBUF STEHENDEN TEXTES *) 
OUTWDS, (* ANZAHL DER IN OUTBUF BEFINDLICHEN WOERTER *) 
DIR: INTEGER; 

HEADER, 

FOOTER: TITLEINFO; 

HASNUMERICARG: SET OF CMDTYPE; 

INBUF, 

OUTBUF, 

BLANKS255: STRING255; 

UNDERLINE: STRING[2]; 

ROOT: ENTRYP; 

POOLINX: INTEGER; 

DEFPOOL: PACKED ARRAY [O..MAXDEFPOOL] OF CHAR; 


PROCEDURE COMMAND(VAR BUF: STRING255); 
FORWARD; 


PROCEDURE UPSTRING(VAR S: STRING); 


VAR 
I: INTEGER; 


BEGIN 
FOR I := 1 TO LENGTH(S) DO 
IF S[I] IN ['a'..'z'] THEN 
S[I] := CHR(ORDC'A!)+(ORD(S[I])-ORD('a'))); 
END; 


FUNCTION MIN(A, B: INTEGER): INTEGER; 
(*===*) 


(4e=*) 


E 


PROCEDURE ERROR(S: STRING255); 


—— 


BEGIN 

WRITELN; 

WRITELNC'>>> ',5,' <<<); 
CLOSE(DESTFILE,LOCK); 
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WRITELN(LINECOUNT, ' Zeilen'); 
EXIT(FORMAT); 
END; 


FUNCTION GETLINE(VAR INBUF: STRING255): BOOLEAN; 


BEGIN 
IF INCLUDING THEN 
IF EOF(INCLUDEFILE) THEN 
BEGIN 
CLOSE(INCLUDEFILE); 
INCLUDING := FALSE; 
GETLINE := GETLINE(INBUF); 
EXIT(GETLINE); 
END 
ELSE 
READLN(INCLUDEFILE, INBUF) 
ELSE IF EOF(SOURCEFILE) THEN 


BEGIN 
INBUF := ''; 
GETLINE := FALSE; 
EXIT(GETLINE); 
END 

ELSE 


READLN(SOURCEFILE, INBUF) ; 
LINECOUNT := SUCC(LINECOUNT); 
IF NONCONSOLE THEN 

BEGIN 

DOTCOUNT := SUCC(DOTCOUNT) ; 

WRITE('.'); 

IF DOTCOUNT >= 50 THEN 

BEGIN 

WRITELN; 

WRITE( '<' „LINECOUNT:4,'>"); 
DOTCOUNT := 0; 


END; 
GETLINE ;= TRUE; 
END; 


FUNCTION ENTERCMD(CMD: STRING255; CT: CMDTYPE): ENTRYP; 


(det) 


(* BEFEHL IN TABELLE EINFUEGEN *) 


VAR 
P, 
Q: ENTRYP; 
I: INTEGER; 


BEGIN 
UPSTRING(CMD); 
IF LENGTH(CMD) < 2 THEN 


ERROR(CONCAT( 'Befehlsnane zu kurz: ',CMD)); 


NEW(P); 

WITH P* DO 
BEGIN 
NAME := ' 1; 
MOVELEFT(CMD[1],NAME[1],2); 
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NIL; 
END; 
IF ROOT = NIL THEN 
ROOT := P 
ELSE 
BEGIN 
I := TREESEARCH(ROOT,Q,P”.NAME); 
IF I = 1 THEN 
Q* .RLINK := P 
ELSE IF I = -] THEN 
Q*.LLINK := P 
ELSE 
P := Q; (* NEUDEFINIEREN *) 
END; 
P’*.TYP := CT; 
ENTERCMD := P; 
END; 


FUNCTION LOOKUP(VAR TOKEN: STRING255): ENTRYP; 


(H=-—*) 


(* TABELLE NACH BEFEHL DURCHSUCHEN *) 


VAR 
P: ENTRYP; 
NAM: PACKED ARRAY [1..8] OF CHAR; 
BEGIN 
LOOKUP := NIL; 
IF LENGTH(TOKEN) >= 2 THEN 
BEGIN - 
NAM := ' ' 


MOVELEFT(TCKEN[1],NAM[1],2); 
IF TREESEARCH(ROOT,P,NAM) = O THEN 
LOOKUP := P; 
END; 
END; 


PROCEDURE SETVAL(VAR PARAM: INTEGER; VAL: INTEGER; TYP: ARGTYPE; 
(==———#) DEFVAL, MINVAL, MAXVAL: INTEGER); 


(* PARAMETER EINSTELLEN UND WERTEBEREICH PRUEFEN *) 


BEGIN 
CASE TYP OF 
DEFAULTED: 

PARAM := DEFVAL; 
RELPLUS: 

PARAM := PARAM+VAL; 
RELMINUS: 

PARAM := PARAM-VAL; 
ABSOLUTE 

PARAM := VAL 
END; (* CASE *) 
PARAM := MIN(PARAM,MAXVAL); 
PARAM := MAX(PARAM,MINVAL); 
END; 
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(*$I FORMAT.1 *) 


PROCEDURE HANDLEARGS(VAR.S, ARGS: STRING255); 


(* uk 


(* AUFRUFARGUMENTE VON MAKROS BEARBEITEN *) 


VAR 
I: INTEGER; 
ARG: STRING25S; 


PROCEDURE GETARG(N: INTEGER; VAR ARG: STRING255); 
VAR I: INTEGER; 
A: STRING25S5; 
BEGIN 
A := ARGS; 
WHILE (N > O0) AND (LENGTH(A) > O0) DO 
BEGIN 
IF (A[1] = '''") AND (LENGTH(A) > 1) THEN 
BEGIN 
DELETE(A,1,1); 
I := SCAN(LENGTH(A),="'"'",A[1]); 
ARG := COPY(A,1,D); 
DELETE(A,1,I); 
IF POS(''"",A) = 1 THEN 
DELETE(A,1,1); 
END 
ELSE IF (A[1] = '""') AND (LENGTH(A) > 1) THEN 
BEGIN 
DELETE(A,1,1); 
I := SCAN(LENGTH(A),='""",A[1]); 
ARG := COPY(A,1,I); 
DELETE(A,1,I); 
IF POS('"",A) = 1 THEN 
DELETE(A,1,1); 
END 
ELSE 
BEGIN 
I := SCAN(LENGTH(A),='" ',A[l)); 
ARG := COPY(A,1,I); 
DELETE(A,1,I); 
END; 
IF LENGTH(A) > O THEN 
BEGIN 
I := SCAN(LENGTH(A),<>'" ',A[1]); 
DELETE(A,1,I); 
END; 
N := PRED(N); 


‘IF N © O0 THEN 
ARG := "!; 
END; 


BEGIN (* HANDLEARGS *) 

I:=]; 

WHILE I < LENGTH(S) DO 
BEGIN 
I := I+SCAN(LENGTH(S)+1-I,='"$' ,S[I]); 
IF I < LENGTH(S) THEN 
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IF S{I+1] IN ['1'"..'9'] THEN 

BEGIN 

GETARG(ORD(S[I+1])-ORD('0'),ARG); 

DELETE(S,I,2); 

IF LENGTH(S)+LENGTH(ARG) <= 255 THEN 
INSERT(ARG,S,I) 

ELSE 
ERROR( 'Ueberlauf bei Makrosubstitution'); 

I := I+LENGTH(ARG); 


I := SUCC(I); 


END; 


FUNCTION COMTYPE(VAR BUF: STRING255; EXPAND: BOOLEAN) 
(e==—*) 


(* BEFEHL DECODIEREN UND AUS PUFFER LOESCHEN *) 


VAR 
I, 
J: INTEGER; 
P:;: ENTRYP; 
S, 
CMDBUF: STRING255; 


BEGIN 
I := SCAN(LENGTH(BUF),='" ',BUF[1]); 
CMDBUF := COPY(BUF,1,I); 
DELETE(BUF,1,I); 
IF LENGTH(BUF) > O0 THEN 
BEGIN 
I := SCAN(LENGTH(BUF),<>' ',BUF[1]); 
DELETE(BUF,1,I); 
END; 
DELETE(CMDBUF,1,1); (* '.'" %*) 
UPSTRING(CMDBUF) ; 
P := LOOKUP(CMDBUF); 
IF P = NIL THEN 
COMTYPE := UNKNOWN 
ELSE 
WITH P” DO 
BEGIN 
COMTYPE := TYP; 
IF (TYP = DEFINED) AND EXPAND THEN 
BEGIN 
J := START; 
FOR I := 1 TO LINES DO 
BEGIN 


: CMDTYPE; 


(* TRICKREICHER BEFEHL, BENUTZT LAENGENBYTE VON S *) 


MOVELEFT(DEFPOOL[J],S,1+ORD(DEFPOOL[J])); 
J := J+1+LENGTH(S); 
IF POS('$',S) <> O THEN 


HANDLEARGS(S,BUF); 
IF POSC'.',S) = 1 THEN 
COMMAND(S) 
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FUNCTION GETVAL(VAR BUF: STRING255; VAR TYP: ARGTYPE): INTEGER; 
(——+) 


(* ERMITTLE OPTIONALES NUMERISCHES ARGUMENT *) 


VAR 
I: INTEGER; 
CONTINUE: BOOLEAN; 


BEGIN 

IF LENGTH(BUF) = O THEN 
TYP := DEFAULTED 

ELSE IF POS('+',BUF) = 1 THEN 
TYP := RELPLUS 

ELSE IF POS('-',BUF) = 1 THEN 
TYP := RELMINUS 

ELSE 
TYP := ABSOLUTE; 

IF TYP IN [RELPLUS,RELMINUS] THEN 
DELETE(BUF,1,1); 

I :=0; 

CONTINUE := TRUE; 

WHILE CONTINUE AND (LENGTH(BUF) > 0) DO 
IF BUF[1] IN ['0'..'9'] THEN 


BEGIN 
I ;= (I*10)+(ORD(BUF[1])-ORD('O')); 
DELETE(BUF,1,1); 
END 
ELSE 
CONTINUE := FALSE; 
GETVAL := ]J; 


END; 


PROCEDURE GETTL(VAR BUF: STRING255; VAR TITLE: TITLEINFO); 


(* TITEL AUS PUFFER HOLEN *) 


PROCEDURE GETPART(VAR BUF, S: STRING255); 
VAR I: INTEGER; 
DELIM: STRING[1]; 
BEGIN 
IF LENGTH(BUF) > O THEN 
BEGIN 
DELIM := COPY(BUF,1,1); 
DELETE(BUF,1,1); 
I := POS(DELIM, BUF); 
IF I= 0 THEN 
BEGIN 
S := BUF; 
BUF := ''; 
END 
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ELSE 
BEGIN 
I := PRED(I); 
S := COPY(BUF,1,I); 
DELETE(BUF,1,I); 
END; 


BEGIN 
I := PRED(I); 
S := COPY(BUF,1,I); 
DELETE(BUF,1,I); 
END; 

END 

ELSE 
S ı= , 


END; 


BEGIN (* GETTL *) 

WITH TITLE DO 
BEGIN 
LEFTM := INVAL; 
RIGHTM := RMVAL; 
GETPART(BUF,LEFTS); 
GETPART(BUF,CENTERS); 
GETPART(BUF, RIGHTS); 


EMPTY := (LEFTS = '') AND (CENTERS = '') AND (RIGHTS = ''); 


END; 
END; 


PROCEDURE DEFINE(VAR BUF: STRING255); 


(dat 
(* MAKRO DEFINIEREN *) 


VAR 
P: ENTRYP; 
CT: CMDTYPE; 
INBUF: STRING255; 


BEGIN 
P := ENTERCMD(BUF,DEFINED); 
WITH P* DO 

BEGIN 

START := POOLINX; 

LINES := 0; 

WHILE GETLINE(INBUF) DO 


IF POOLINX+1+LENGTH(INBUF) <= MAXDEFPOOL THEN 


BEGIN 


(* TRICKREICHER BEFEHL, BENUTZT LAENGENBYTE VON INBUF *) 


MOVELEFT(INBUF, DEFPOOL[ POOLINX] , I+LENGTH(INBUF)); 
POOLINX := POOLINX+1+LENGTH(INBUF) ; 


LINES := SUCC(LINES); 

IF POS('.',INBUF) = 1 THEN 
BEGIN 
CT := COMTYPE(INBUF, FALSE); 
IF CT = DE THEN 


ERROR(CONCAT( "Geschachtelte Definitionen verboten: 


ELSE IF CT = EN THEN 
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',BUF)) 


BEGIN 

LINES := PRED(LINES); 
EXIT(DEFINE); 

END; 


ELSE 
ERROR(CONCAT( "Definition zu lang: ',BUF)); 
END; 


END; 


PROCEDURE COMMAND; (* VAR BUF: STRING255 *) 


(un 


(* FORMATIERBEFEHL AUSFUEHREN *) 


VA 


R 

VAL, 

NEVAL, 

SPVAL: INTEGER; 
CT: CMDTYPE; 
TYP: ARGTYPE; 


BEGIN 
CT := COMTYPE(BUF,TRUE); 
IF CT IN HASNUMERICARG THEN 


VAL := GETVAL(BUF,TYP); 


CASE CT OF 
UNKNOWN, DEFINED: 


BP 


BEGIN 
END; 


BEGIN 
IF LINENO > O THEN 

SPACE(HUGE) ; 
SETVAL(CURPAGE, VAL, TYP,SUCC(CURPAGE) ‚-HUGE, HUGE) ; 
NEWPAGE := CURPAGE; 
END; 


BR: 


CE 


BRK; 


BEGIN 

BRK; 
SETVAL(CEVAL,VAL,TYP,1,0,HUGE); 
END; 


DE: 


EN 


FI 


FO 


BEGIN 

BRK; 

DEFINE(BUF); 

END; 

ERROR" „en ausserhalb von Definition'); 
BEGIN 

BRK; 

FILL := TRUE; 

END; 


GETTL(BUF ‚ FOOTER); 
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HE: 
GETTL(BUF,HEADER); 
IND: 
BEGIN 
SETVAL(INVAL,VAL,TYP,0,0,PRED(RMVAL)); 
TIVAL := INVAL; 
END; 
LS: 
SETVAL(LSVAL,VAL,TYP,1,1,HUGE); 
NE: 
BEGIN 
BRK; 
NEVAL := 1; (* FALLS VAL RELATIV IST *) 
SETVAL(NEVAL,VAL,TYP,1,0,HUGE); 
NEVAL := NEVAL*LSVAL; 
IF LINENO+PRED(NEVAL) > BOTTOM THEN 
SPACE(HUGE) ; 
END; 
NF: 
BEGIN 
BRK; 
FILL := FALSE; 
END; 
PL: 
BEGIN 
SETVAL(PLVAL,VAL,TYP, PAGELENGTH ,M1VAL+M2VAL+M3VAL+-M4VAL+1,HUGE); 
BOTTOM := PLVAL-M3VAL-M4VAL; 
END; 
RM: 
SETVAL(RMVAL,VAL,TYP,PAGEWIDTH,SUCC(TIVAL),255); 
So: 
BEGIN 
UPSTRING(BUF); 
IF BUF = '’ THEN 
EXIT (COMMAND) 
ELSE IF POS('.TEXT',BUF) = O THEN 
IF BUF[LENGTH(BUF)] <> ':' THEN 
IF BUF[LENGTH(BUF)] <> '.' THEN 
BUF := CONCAT(BUF,'.TEXT') 
ELSE 
DELETE(BUF,LENGTH(BUF) ‚,1); 
IF INCLUDING THEN 
ERROR('Fileschachtelung verboten') 
ELSE 
BEGIN 
INCLUDING := TRUE; 
RESET(INCLUDEFILE, BUF) ; 
END; 
END; 


SP: 
BEGIN 
SPVAL := 1; (* FALLS VAL RELATIV IST *) 
SETVAL(SPVAL,VAL,TYP,1,0,HUGE); 
SPACE(SPVAL); 
END; 
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TI; 
BEGIN 
BRK; 
SETVAL(TIVAL,VAL,TYP,O,O,RMVAL); 
END; 
UL: 
SETVAL(ULVAL,VAL,TYP,1,0,HUGE) 
END; (* CASE *) 


END; 
PROCEDURE INIT; 
=—*) 

VAR 

P: ENTRYP; 
BEGIN 
BACKSPACE := CHR(8); 
DOTCOUNT := 0; 
LINECOUNT := 0; 
DIN := FALSE; 
FILL := TRUE; 
LSVAL : := 1; 
INVAL := 0; 
RMVAL := PAGEWIDTH; 
TIVAL := 0; 
CEVAL := 0; 
ULVAL := 0; 
CURPAGE := 0; 
NEWPAGE := ]; 
LINENO := 0; 
PLVAL := PAGELENGTE; 
MIVAL := 2; 
M2VAL := 2; 
M3VAL := 2; 
M4VAL := 2; 
BOTTOM := PLVAL-M3VAL-MAVAL 
OUIW := 0; 
OUTWDS :;= 0; 
DIR := 0; 
HEADER.EMPTY := TRUE; 
FOOTER.EMPTY := TRUE; 
HASNUMERICARG := [BP,CE,IND,LS,NE,PL,RM, SP, TI,UL]; 
OUTBUF := ''; 
(F$R-—*) 
BLANKS255[0] := CHR(255); 
(*$R+*) 
FILLCHAR(BLANKS255[1], 255,' 3; 
UNDERLINE : 
UNDERLINE[ 2] ı= = BACKSPACE; 
ROOT := NIL; 
POOLINX := 0; 
P := ENTERCMDC 'BP',BP); 
P := ENTERCMDC 'BR' ,BR); 
P := ENTERCMD( 'CE',CE); 
P := ENTERCMD( 'DE',DE); 
P := ENTERCMDC'EN',EN); 
P := ENTERCMD( 'FI',FI); 
P := ENTERCMD('FO',FO); 
P := ENTERCMD('HE' HE); 
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:= ENTERCMDC'NF',NF); 
ENTERCMDC 'PL',PL); 
:= ENTERCMD( 'RM' RM); 
:= ENTERCMD( 'SO',SO); 
:= ENTERCMD( 'SP',SP); 
:= ENTERCMD( 'TI',TI); 
:= ENTERCMD('UL'! UL); 
ID; 


[SE Ma Ban Bea Ba - Ba Ka Bi 


(* =——-— HAUPTPROGRAMM —======-= *) 


INIT; 
PAGE(OUTPUT); 
WRITELN('Format (27.7.81)'); 
WRITELN( "Copyright (c) 1981 Chris Wilson'); 
WRITELN; 
WRITE( "Textdatei: '); 
READLN(SOURCENAME) ; 
UPSTRING(SOURCENAME) ; 
IF SOURCENAME = '" THEN 
EXIT(FORMAT) 


ELSE IF POS('.TEXT',SOURCENAME) = 0 THEN 
IF SOURCENAME[ LENGTH(SOURCENAME)] <> ':' THEN 
IF SOURCENAME[LENGTH(SOURCENAME)] <> '.' THEN 
SOURCENAME :;= CONCAT(SOURCENAME, '.TEXT') 
ELSE 
DELETE(SOURCENAME , LENGTH(SOURCENAME) ‚,1); 
WRITE( 'Ausgabedatei: '); 
READLN(DESTNAME) ; 
UPSTRING(DESTNAME) ; 
IF DESTNAME = '' THEN 
DESTNAME := "PRINTER: ' 
ELSE IF POS('.TEXT',DESTNAME) = O THEN 
IF DESTNAME[LENGTH(DESTNAME)] <> ':" THEN 
IF DESTNAME[LENGTH(DESTNAME)] <> '.' THEN 
DESTNAME := CONCAT(DESTNAME, '.TEXT') 
ELSE 
DELETE(DESTNAME , LENGTH(DESTNAME) ‚,1); 
NONCONSOLE := (POS( "CONSOLE: ',DESTNAME) = 0) 
AND (POS(C'SYSTERM: ' ‚DESTNAME) = 0) 
AND (POS('#1:',DESTNAME) = 0) 
AND (POS('!#2:',DESTNAME) = 0); 
EMITPAGE := (POSC'PRINTER:',DESTNAME) = 1) 
OR (POS('#6:',DESTNAME) = 1) 
OR NOT NONCONSOLE ; 
RESET(SOURCEFILE, SOURCENAME) ; 
REWRITE(DESTFILE, DESTNAME) ; 
IF NONCONSOLE THEN 
WRITEC'<' ‚LINECOUNT:4,'>"); 
WHILE GETLINE(INBUF) DO 
IF POS('.',INBUF) = 1 THEN 
COMMAND(INBUF) 
ELSE 
TXT(INBUF); 
IF LINENO > O THEN 
SPACE(HUGE); 
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CLOSE(DESTFILE,LOCK); 
IF NONCONSOLE THEN 

WRITELN; 
WRITELN(LINECOUNT, ' Zeilen'); 
END. 


(* Copyright (c) 1981 by Chris Wilson *) 


PROCEDURE SKIP(N: INTEGER); 
* 


*— = 


(* AUSGABE VON N LEERZEILEN *) 


VAR 
I: INTEGER; 
BEGIN 
FOR I := 1 TON DO 
WRITELN(DESTFILE); 
END; 
PROCEDURE PUTTL(VAR TITLE: TITLEINFO; PAGENO: INTEGER); 
——*) 
(* GIB TITELZEILE MIT OPTIONALER SEITENNUMMER AUS *) 
VAR 
I, 
J: INTEGER; 


S: STRING255; 
PAGES: STRING; 


PROCEDURE STR(VAL: INTEGER; VAR S: STRING); 


VAR D, I: INTEGER; 
MINUS: BOOLEAN; 
BEGIN 
MINUS := VAL < 0; 
VAL := ABS(VAL); 
| "t, 


P 
D := VAL MOD 10; 
VAL := VAL DIV 10; 
S[I] := CHR(ORD('0')+D); 
I := PRED(I) 
UNTIL VAL = 0; 
IF MINUS THEN 
BEGIN 
S[I] := '-'; 
I := PRED(I); 
END; 
DELETE(S,1,T); 
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PROCEDURE REPLACE(VAR S: STRING255); 
VAR I: INTEGER; 
BEGIN 
REPEAT 

I := POS('#',S); 

IF I <> O THEN 
BEGIN 
DELETE(S,I,1); 
INSERT(PAGES,S,I); 
END 

UNTIL I = 0; 
END; 


BEGIN (* PUTTL *) 
WITH TITLE DO 
IF NOT EMPTY THEN 
BEGIN 
STR(PAGENO, PAGES); 
IF LEFTM > O THEN 
WRITE(DESTFILE,' ':LEFIM); 
I := LEFTM; 
IF LENGTH(LEFTS) > O THEN 
BEGIN 
S := LEFTS; 
REPLACE(S); 
WRITE(DESTFILE,S); 
I := I+LENGTH(S); 
END; 
IF LENGTH(CENTERS) > O THEN 
BEGIN 
S := CENTERS; 
REPLACE(S); 
J := MAX(((LEFTM+RIGHTM)-LENGTH(S)) DIV 2,0); 
IF I< J THEN 
WRITE(DESTFILE,' ':(J-I)); 
WRITE(DESTFILE,S); 
I := J+LENGTH(S); 
END; 
IF LENGTH(RIGHTS) > O THEN 
BEGIN 
S := RIGHTS; 
REPLACE(S); 
J := RIGHTM-LENGTH(S); 
IF I< J THEN 
WRITE(DESTFILE,' ':(J-I)); 
WRITE(DESTFILE,S); 
END; 
END; 
WRITELN(DESTFILE); 
END; 


PROCEDURE PHEAD; 
(*=====*) 


(* KOPFZEILE AUSGEBEN *) 


BEGIN 
CURPAGE := NEWPAGE; 
NEWPAGE := SUCC(NEWPAGE) ; 
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IF EMITPAGE THEN 
PAGE(DESTFILE); 

IF MIVAL > O THEN 
BEGIN 
SKIP(PRED(MIVAL)); 
PUTTL(HEADER, CURPAGE) ; 
END; 

SKIP(M2VAL); 

LINENO := MIVAL+MPVAL+1; 

END; 


PROCEDURE PFOOT; 
(#==-—*) 


(* FUSSZEILE AUSGEBEN *) 


BEGIN 

SKIP(M3VAL); 

IF M4VAL > O THEN 
BEGIN 
PUTTL(FOOTER , CURPAGE) ; 
SKIP(PRED(M4VAL)); 
END; 

END; 


PROCEDURE PUT(VAR BUF: STRING255); 
(+-—*) 


(* ZEILE UNTER BEACHTUNG VON ZEILENABSTAND UND EINRUECKUNG AUSGEBEN *) 


BEGIN 
IF (LINENO = 0) OR (LINENO > BOTTOM) THEN 
PHEAD; 
IF TIVAL > O THEN 
WRITE(DESTFILE, ' ":TIVAL); 
TIVAL := INVAL; 
WRITELN(DESTFILE, BUF); 
SKIP(MIN(PRED(LSVAL) ‚BOTTOM-LINENO)) ; 
LINENO := LINENO+LSVAL; 
IF LINENO > BOTTOM THEN 
PFOOT; 
END; 


PROCEDURE BRK; 
(+) 


(* AKTUELLE ZEILE AUSGEBEN *) 


BEGIN 

IF LENGTH(OUTBUF) > O THEN 
PUT(OUTBUF); 

OUTW := 0; 

OUTWDS := 0; 

OUTBUF := ''; 

END; 


PROCEDURE SPACE(N: INTEGER); 
(=——*) 
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(* N LEERZEILEN AUSGEBEN ODER UNTEREN SEITENRAND EINSTELLEN *) 


BEGIN 
BRK; 
IF LINENO <= BOTTOM THEN 
BEGIN 
IF LINENO = O THEN 
PHEAD; 


SKIP(MIN(N, (BOTTOM+-1)-LINENO)); 
LINENO := LINENO+N; 
IF LINENO > BOTTOM THEN 
PFOOT; 
END; 
END; 


PROCEDURE LEADBL(VAR BUF: STRING255); 
et) 


(* FUEHRENDE LEERZEICHEN LOESCHEN, TIVAL EINSTELLEN *) 


VAR 
I: INTEGER; 


BEGIN 
BRK; 
IF LENGTH(BUF) > O THEN 
BEGIN 
I := SCAN(LENGTH(BUF) ,<>'! ',BUF[1J); 
DELETE(BUF,1,I); 
IF LENGTH(BUF) > O THEN 
TIVAL := J; 
END; 
END; 


FUNCTION WIDTH(VAR BUF: STRING255): INTEGER; 
( *-——*) 


(* BERECHNE BREITE DES STRINGS *) 


VAR 
I, 
BS, 
COUNT: INTEGER; 


BEGIN 
IF LENGTH(BUF) > O THEN 
BEGIN 
I := SCAN(LENGTH(BUF) ‚„=BACKSPACE,BUF[1]); 
IF I = LENGTH(BUF) THEN 
WIDTH := I 
ELSE 
BEGIN 
BS := ]; 
I := Ir2; 
COUNT := (LENGTH(BUF)+1)-I; 
WHILE COUNT > 0 DO 
BEGIN 
I :=_I+SCAN(COUNT,=BACKSPACE,,BUF[I]); 
COUNT := (LENGTH(BUF)+1)-TI; 
IF COUNT <> O THEN 
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BS := SUCC(BS); 
I := SUCC(I); 
COUNT := PRED(COUNT); 
END; 
END; 
WIDTH := LENGTH(BUF)-BS; 
END; 
END 
ELSE 
WIDTHA := 0; 
END; 


PROCEDURE SPREAD(VAR BUF: STRING255; NEXTRA, OUTWDS: INTEGER); 
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(* FUER RECHTEN RANDAUSGLEICH WOERTER AUSEINANDER RUECKEN *) 


VAR 
I, 
NB, 
NE, 
NHOLES: INTEGER; 
BEGIN 
IF (NEXTRA > O) AND (OUTWDS > 1) THEN 
BEGIN 
DIR := 1-DIR; 
NE := NEXTRA; 
NHOLES := PRED(OUTWDS); 
I:=1; 
WHILE NE > 0 DO 
BEGIN 


I := I+SCAN((LENGTH(BUF)+1)-I,='" ',BUF[I]); 
IF DIR = O THEN 
NB := (PRED(NE) DIV NHOLES)+1 


ELSE 
NB := NE DIV NHOLES; 
NE := NE-NB; 


NHOLES := PRED(NHOLES); 
INSERT(COPY(BLANKS255,1,NB),BUF,I); 
I := I+NB+l; 
END; 
END; 
END; 


PROCEDURE PUTWRD(VAR WRDBUF: STRING255); 


(* WORT IN OUTBUF SCHREIBEN; RANDAUSGLEICH BEACHTEN *) 


VAR 

W, 

LAST, 

LLVAL: INTEGER; 
BEGIN 
W := WIDTH(WRDBUF); 
LLVAL := RMVAL-TIVAL; 
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IF LENGTH(OUTBUF) > O THEN 
BEGIN 
LAST := LENGTH(OUTBUF)+1+LENGTH(WRDBUF) ; 
IF (OUTW+l+W > LLVAL) OR (LAST > 255) THEN 
BEGIN " 
SPREAD(OUTBUF, LLVAL-OUTW, OUTWDS) ; 
BRK; 
END; 
END; 
IF LENGTH(OUTBUF) = O THEN 
BEGIN 
OUTBUF := WRDBUF; 
OUTW := W; 
END 
ELSE 


BEGIN 
INSERT(' ' ,OUTBUF,LENGTH(OUTBUF)+1); 
INSERT(WRDBUF ,OUTBUF , LENGTH(OUTBUF)+1); 
OUTW := OUTW+1+W; 
END; 

OUTWDS := SUCC(OUTWDS); 

END; 


PROCEDURE CENTER(VAR BUF: STRING255); 
( *====*) 


(* ZEILE DURCH SETZEN VON TIVAL ZENTRIEREN *) 


BEGIN 
TIVAL := MAX(((RMVAL+TIVAL)-WIDTH(BUF)) DIV 2,0); 
END; 


PROCEDURE UNDERL(VAR BUF: STRING255); 
(===*) 


(* ZEILE UNTERSTREICHEN *) 


VAR 
I: INTEGER; 


I:=1; 
WHILE (I < LENGTH(BUF)) AND (I < 254) DO 
BEGIN 
IF BUF[I] <> ' " THEN 
BEGIN 
INSERT(UNDERLINE,BUF,T); 
I := I+2; 


FUNCTION GETWRD(VAR INBUF, OUT: STRING255): INTEGER; 
(Hu==e=—*) 


(* NICHTLEERES WORT VON INBUF NACH OUT KOPIEREN UND AUS INBUF LOESCHEN *) 
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VAR 
L: INTEGER; 


BEGIN 
IF LENGTH(INBUF) > O THEN 
BEGIN 


I := SCAN(LENGTH(INBUF),<>' ',INBUF[1]); 


DELETE(INBUF,1,I); 


END; 
IF LENGTH(INBUF) > O THEN 
BEGIN 


I := SCAN(LENGTH(INBUF),=' ',INBUF[1]); 


OUT := COPY(INBUF,1,I); 
DELETE(INBUF,1,TI); 
GETWRD := I; 


PROCEDURE TXT(VAR INBUF; STRING255); 


(*==*) 


(* TEXTZEILEN VERARBEITEN *) 


VAR 
WRDBUF: STRING255; 


BEGIN 
IF LENGTH(INBUF) = O0 THEN 
LEADBL( INBUF) 


ELSE IF INBUF[1] = ' ' THEN 


LEADBL(INBUF); 

IF ULVAL > O THEN 
BEGIN 
UNDERL(INBUF); 
ULVAL := PRED(ULVAL); 
END; 

IF CEVAL > O THEN 
BEGIN 
CENTER(INBUF); 
PUT(INBUF); 
CEVAL := PRED(CEVAL); 
END 


ELSE IF LENGTH(INBUF) = O THEN 


PUT( INBUF) 

ELSE IF NOT FILL THEN 
PUT(INBUF) 

ELSE 


WHILE GETWRD(INBUF,WRDBUF) > O DO 


PUTWRD(WRDBUF); 
END; 
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Dean Rosenheain 


Ein Pascal- 
Zeicheneditor 


Im APPLE-Pascal gibt es zwei Befehle, mit denen man Text auf der HI- 
RES-Grafikseite schreiben kann: WCHAR und WSTRING. Der von diesen 
Befehlen benutzte Zeichensatz ist in einem auf Diskette gespeicherten Daten- 
file namens SYSTEM.CHARSET gespeichert. Eine genaue Beschreibung 
des Datenformats dieser 1024 Bytes finden Sie auf den Seiten 99 und 100 des 
APPLE Pascal Language Reference Manual. Jedes Zeichen wird in acht auf- 
einanderfolgenden Bytes in einem Array von 128 Zeichen untergebracht. Die 
Pascal-Deklaration zur Erzeugung neuer Zeichensätze oder zur Modifika- 
tion bereits vorhandener sieht wie folgt aus: 


TYPE 
BITS = 0..7; 
BYTE = SET OF BITS; 
CHARIMAGE = PACKED ARRAY [0..7] OF BYTE; 
CHARSET = PACKED ARRAY [0..127] OF CHARIMAGE; 


VAR 
CHARACTERS : CHARSET; 
CHARFILE : FILE OF CHARSET,; 


Es gibt einen weiteren Weg, Textzeichen in der HI-RES-Grafik darzustellen, 
nämlich mit DRAWBLOCK, einer Turtlegraphics-Prozedur, die ein Bit- 
Array auf den Bildschirm kopiert und so die Darstellung von Bildern mög- 
lich macht. WCHAR und WSTRING benutzen die DRAWBLOCK- 
Prozedur (weitere Informationen über die Verwendung von Bit-Arrays fin- 
den Sie in Loy Spurlocks Artikel in Applesauce, Vol. 1, Heft 7 (Oktober 
1979), der in Call-A.P.P.L.E. vom Januar 1980 nachgedruckt wurde). 

Um zu erklären, wie DRAWBLOCK zur Zeichenausgabe benutzt werden 
kann, nehmen wir an, daß SYSTEM.CHARSET von einer Diskette gelesen 
und in ein Array namens CHARACTERS (mit der o.g. Typendeklaration) 
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gespeichert. wurde. Will man z.B. das Zeichen “‘A‘' auf der Grafikseite aus- 
geben, so benutzt man dazu den Befehl: 


DRAWBLOCK (CHARACTERS[65],1,0,0,7,8,140,90,10); 


Das Array, das auf den Bildschirm kopiert wird, ist in diesem Fall CHA- 
RACTERS [65], da “‘A‘‘ den ASCII-Code 65 hat. Wie man aus der obigen 
Deklaration ersehen kann, besteht CHARACTERS [65] aus acht Bytes von 
CHARIMAGE. Die anderen Parameter geben folgendes an: 


““1“ =Anzahl der Bytes, die von jeder Punktreihe des Zeichens belegt 
werden. 

«0° = Anzahl der Punkte oder Bits, die in der Zeile vor Beginn des zu ko- 
pierenden Arraybereiches übersprungen werden sollen. 

0“ = Anzahl der Punkte, die in der Vertikalen übersprungen werden sol- 


len. 
“7 _ =Breite des Bildes in Punkten. 
“8° =Höhe des Bildes in Punkten. 
‘140° =X-Koordinate der unteren linken Bildecke. 
90“ = Y-Koordinate der unteren linken. Bildecke. 


‘10° = Anzeigemodus. 


Der Anzeigemodus ist ein nützlicher Parameter, mit dem man angeben 
kann, auf welche Weise das Bit-Array auf den Bildschirm kopiert werden 
soll (weitere Einzelheiten im Handbuch). Es gibt insgesamt 16 verschiedene 
Anzeigemodi, wie z.B. die inverse Darstellung (Modus Nr.5). Benutzt man 
Modus 6 (Exklusiv-ODER), kann man durch zweimaliges Schreiben des glei- 
chen Textes an der gleichen Bildschirmstelle diesen Text wieder löschen, oh- 
ne daß der ursprüngliche Bildhintergrund zerstört wird. Der Standard- 
Schreibmodus ist Nr.10. Dabei werden die Bytes des Arrays direkt auf den 
Bildschirm kopiert. 

Wenn es die DRAWBLOCK-Prozedur nicht gäbe, wäre es schwierig (und 
langwierig), Zeichensätze auf den Bildschirm zu kopieren, die nicht in 
SYSTEM.CHARSET stehen. Mit DRAWBLOCK dagegen kann man sogar 
mehrere Zeichensätze gleichzeitig in ein- und demselben Programm benut- 
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zen. Ohne allzu große Schwiereigkeiten kann man auch größere Zeichen de- 
finieren und die DRAWBLOCK-Parameter ihrer Ausgabe entsprechend an- 
passen. Wenn die Zeichen mit SYSTEM.CHARSET kompatibel sein sollen, 
müssen sie natürlich den obigen Deklarationen entsprechen. 

Der hier vorgestellte Zeichensatzeditor wurde so entworfen, daß seine 
Benutzung recht einfach erlernt werden kann. Obwohl das Programmlisting 
halbwegs selbsterklärend ist, sind einige Eigenschaften des Programms und 
seiner Funktionsweise erwähnenswert. 

Bei Programmstart zeigt die Prozedur SETUP den aktuellen Zeichensatz 
(der anfangs nur aus Zufallspunkten besteht). Danach gibt die Prozedur 
MENU1I einige der zur Verfügung stehenden Befehle aus. Durch Drücken 
der Leertaste wird MENU2 aufgerufen und der andere Teil des Befehlssatzes 
angezeigt. Die INPUT-Prozedur zeigt jeden Tastendruck auf dem HI-RES- 
Bildschirm an. Anstelle des Dateinamens ‘‘SYSTEM.CHARSET‘“ kann 
man auch ‘‘*‘‘ angeben. Mit FILEIN werden Datenfiles gelesen und ggf. 
auftretende E/A-Fehler abgefangen. Die entsprechende Prozedur zum Spei- 
chern von Zeichensätzen heißt FILEOUT. 

Das Zeichen, das editiert werden soll, wird mit einem quadratischen Cur- 
sor ausgewählt (HILITE-Prozedur), der sich mit den Tasten *W‘“, A“, 
“Ss und ‘Z‘“‘ über den Zeichensatz bewegen läßt. Mit dem GRAB-Befehl 
kann man das so gewählte Zeichen im vergrößerten Maßstab auf der rechten 
Bildseite sichtbar machen. Die Tasten ‘‘I‘‘, °°J‘‘, *“K‘‘ und “‘M“‘ verschieben 
das Fadenkreuz, das zum Setzen und Löschen einzelner Punkte dient. Mit 
“y“ und “‘N‘“ läßt sich der durch das Kreuz bezeichnete Punkt setzen bzw. 
löschen. Mit dem Push-Befehl wird das geänderte Zeichen bei der Position 
des HILITE-Cursors in den Zeichensatz zurückkopiert. 

Wenn Sie Ihren eigenen Zeichensatz erstellt haben, können Sie ihn in 
SYSTEM.CHARSET umbenennen und mit Hilfe der Turtlegraphics- 
Routinen WCHAR und WSTRING auf ihn zugreifen. Dazu müssen Sie den 
Filer aufrufen und die SYSTEM.CHARSET-Datei umbenennen, z.B.: 


Change?APPLE1:SYSTEM.CHARSET 
To?APPLE1:OLD.CHARSET 


Danach benennen Sie Ihren eigenen Zeichensatz in ‘‘SYSTEM.CHARSET“ 
um, damit er vom Betriebssystem gelesen werden kann. Das erreicht man 


zum Beispiel durch: 


Transfer ?MYDISK:MYSET 
To?APPLE1:SYSTEM.CHARSET 
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oder, wenn sich der Zeichensatz schon auf der Diskette befindet: 


Change?MYSET 
To?SYSTEM.CHARSET 


Von diesem Augenblick an können die Turtlegraphics-Prozeduren auf Ihren 
Zeichensatz zugreifen. 


PROGRAM CHARED; 

GrebpppBRRRPRReekekk) 
(* *) 
(* HI-RES ZEICHEN *) 
(* EDITOR *) 
(* VERSION 2.2.1 *) 
(* *) 
(* VON... Dean Rosenhain *) 
E; +) 


Goal) 


USES TURTLEGRAPHICS; 


TYPE BITS = 0..7; 
BYTE = SET OF BITS; 
CHARIMAGE= PACKED ARRAY[0O..7] OF BYTE; 
CHARSET= PACKED ARRAY[O..127] OF CHARIMAGE; 


VAR CURRENTSET:CHARSET; 
CURRENTCH :CHARIMAGE; 
CHARFILE :FILE OF CHARSET; 
DISKIO,I,OLD,H,V,OLDH,OLDV: INTEGER; 
CHOICE:CHAR; 
ONE: BOOLEAN; 


PROCEDURE PRINTAT(X,Y:INTEGER; S:STRING); 
BEGIN 

MOVETO(X,Y); 

WSTRING(S); 
END; 


PROCEDURE INPUT(X,Y:INTEGER;VAR S:STRING); 


(* Mit dieser Prozedur koennen Strings *) 
(* auf der Graphikseite eingegeben *) 
(* werden. Dabei wird die Moeglichkeit *) 
(* gegeben, Tippfehler mit der Links- *) 
(* pfeiltaste zu korrigieren. *) 


VAR TEMP :STRING; 
sl :STRING[1]; 


CH :CHAR; 
BEGIN 
TEMP:=''; 
Sl:=' '; 
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MOVETO(X,Y); 
REPEAT 
READ(KEYBOARD,CH); 
IF CH IN ['1!..'z'] THEN 
BEGIN 
WCHAR(CH) ; 
S1[1]:=CH; 
TEMP:=CONCAT (TEMP,S1); 
END 
ELSE 
IF (ORD(CH)=8) AND (LENGTH(TEMP)>O) THEN 
BEGIN 
DELETE(TEMP ,LENGTH(TEMP) ,1); 
MOVETO(TURTLEX-7,Y); 
WCHARC' "); 
MOVETO(TURTLEX-7,Y); 
END; 
UNTIL CH=CHR(32); 
S:=TEMP; 
END; 


PROCEDURE SHOWCHAR (NUM: INTEGER) ; 
VAR X,Y: INTEGER; 
BEGIN 
X:=10*(NUM MOD 16)+5; 
Y:=150-(NUM DIV 16)*10; 
DRAWBLOCK (CURRENTSET[NUM],1,0,0,7,8,X,Y,10); 
END; 


PROCEDURE DISPLAYSET; 
VAR NUM: INTEGER; 
BEGIN 
FOR NUM:= 0 TO 127 DO 
SHOWCHAR (NUM) ; 
END; 


PROCEDURE DISKERROR(ERR:INTEGER); 
VAR S:STRING; 
TIME: INTEGER; 
BEGIN 
CHARTYPE(5); (* INVERSE DARSTELLUNG *) 
IF ERR IN [6,7,10] THEN 
PRINTAT(10,2,"'falscher Dateiname, nicht verfuegbar') 
ELSE 
BEGIN 
STR(ERR,S); 
S:=CONCAT( '"Diskettenfehler Nr. ',S); 
PRINTAT(10,2,S); 
END; 


WRITELNCCHR(7)); 

FOR TIME:= 1 TO 3000 DO (* nichts *):;: 

CHARTYPE(10); (* Normalmodus *) 

WRITELN(CHR(7)); 

PRINTAT(10,2, ' 1); 
END; 


PROCEDURE FILEIN; 
VAR FILENAME:STRING; 
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BEGIN 
INPUT(101,27,FILENAME); 
PRINTAT(101,27,' ; 
IF LENGTH(FILENAME)=0 THEN EXIT(FILEIN); 
IF FILENAME='"*' THEN FILENAME:='SYSTEM.CHARSET'; 
(*$1-*) 
RESET(CHARFILE ,FILENAME); 
DISKIO:=IORESULT; 
IF DISKIO<>O THEN DISKERROR(DISKIO) 
ELSE 
BEGIN 
CURRENTSET:= CHARFILE”; 
CLOSE(CHARFILE,LOCK); 
DISPLAYSET; 
PRINTAT(90,160, ' ); 
PRINTAT(90,160, FILENAME); 
END; 
(*$I+*) 
END; 


PROCEDURE HILITE(LETTER:INTEGER; COLOR :SCREENCOLOR) ; 
VAR I:INTEGER; 
BEGIN 
PENCOLOR (NONE) ; 
MOVETO(10*(LETTER MOD 16)+3,149-(LETTER DIV 16)*10); 
PENCOLOR(COLOR) ; 
TURNTO(0); 
FOR I:=1 TO 4 DO 
BEGIN 
MOVE(10); (%* Quadrat zeichnen *) 
TURN(90); 
END; 
PENCOLOR (NONE); 
END; 


PROCEDURE CROSSHAIR(X,Y:INTEGER); 
BEGIN 
PENCOLOR (NONE) ; 
MOVETO(201+X*10,83+Y*10); 
TURNTO(O); 
PENCOLOR(REVERSE); 
MOVE(4); 
PENCOLOR(NONE) ; 
MOVETO(203+X*10,81+Y*10); 
TURNTO(90); 
PENCOLOR (REVERSE); 
MOVE(4); 
PENCOLOR (NONE) ; 
END; 


PROCEDURE EXPAND(CH:CHARIMAGE); 
VAR ROW, DOT:0..7; 
BEGIN 
FOR ROW:= 0 TO 7 DO 
FOR DOT:= 0 TO 6 DO 
BEGIN 
MOVETO(200+DOT*10,80+ROW*10); 
IF DOT IN CH[ROW] THEN WCHAR(CHR(1)) 
ELSE WCHAR(! '"); 
END; 
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END; (* EXPAND *) 


PROCEDURE CLEARFIELD; 
VAR ROW:0..7; 
BEGIN 
FOR ROW:=0 TO 7 DO 
CURRENTCH[ROW]:=[ ]; 
EXPAND(CURRENTCH); 
END; 


PROCEDURE SETUP; 

VAR J:INTEGER; 

BEGIN 
INITTURTLE; 


PRINTAT(0,180, "Pascal SYSTEM.CHARSET Editor version 2'); 
PRINTAT(155,170,'von D. Rosenhain'); 
PRINTAT(0,160, "Zeichensatz:'); (* KEIN ZEICHENSATZ *) 


DISPLAYSET; 


OLD:=0; I:=0; 
HILITE(I,WHITE); 


MOVETO(199,79); (* QUADRAT ZEICHNEN *) 
PENCOLOR (WHITE); 

MOVETO(268,79); 

MOVETO(268,159); 

MOVETO(199,159); 

MOVETO(199,79); 

PENCOLOR (NONE) ; 


FOR J:= 1 TO 7 DO (* GITTER ZEICHNEN *) 

BEGIN 
MOVETO(199,79+J*10); 
PENCOLOR(WHITE); 
MOVETO(268,79+J*10); 
PENCOLOR(NONE) ; 

END; 


FOR J:= 1 TO 6 DO 

BEGIN 
MOVETO(199+J#10,79); 
PENCOLOR (WHITE); 
MOVETO(199+J*10,159); 
PENCOLOR (NONE) ; 

END; 


CLEARFIELD; 
H:=0; V:=0; 


CROSSHAIR(H,V); 
OLDH:=H; OLDV:=V; 


ONE: =TRUE; 

CHARTYPE(5); 

PRINTAT(0,60, "Befehle :'); 

CHARTYPE(10); 

PRINTAT(90,60, 'weitere mit <Ret>...'); 
END; 
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PROCEDURE MENUl; 


BEGI 


END; 


PROC 
BEGI 


END; 


N 
VIEWPORT(0,279,0,59); 
FILLSCREEN(BLACK); 


CHARTYPE(5); 
PRINTAT(0,44, '"Zeichenwahl:'); 


CHARTYPE(10); 
PRINTAT(0,30,'W: hoch'); 
PRINTAT(0,20,'Z: runter'); 
PRINTAT(0,10,'A: links'); 
PRINTAT(O, 0,'S: rechts'); 


CHARTYPE(5); 
PRINTAT(100,44, "Editieren: '); 


CHARTYPE(10); . 
PRINTAT(100,30,'I: hoch'); 
PRINTAT(100,20,'M: runter'); 
PRINTAT(100,10,'J: links'); 
PRINTAT(100, 0,'K: rechts'); 
PRINTAT(175,40,'Y: setzen'); 
PRINTAT(175,30,'N: loeschen'); 
PRINTAT(175,20,'C: init.'); 
PRINTAT(175,10,'G: holen'); 
PRINTAT(175, O,'P: schreiben'); 
VIEWPORT(0,279,0,191); 


EDURE MENU2; 

N 

VIEWPORT(0,279,0,59); 

FILLSCREEN(BLACK); 

MOVETO(0,40); 

PRINTAT(0,40,'Q:ende T:Satz schr. R:Satz les.' ); 
PRINTAT(10, 24, ‚File laden teoereeeoennennnenennee ); 
PRINTAT(10,9 ‚'File speich.:.ooeeooennnenennenne ); 
VIEWPORT(0,279,0,191); 


BEGIN (* HAUPTPROGRAM *) 
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SETUP; 

MENU]; 

REPEAT 
READ(KEYBOARD,CHOICE); 
CASE CHOICE OF 
' tBEGIN 

IF ONE THEN MENU2 
ELSE MENU; 
ONE:= NOT ONE; 
END; 


'A':I:= (I+128-1) MOD 128; 
'S':I:= (I+l) MOD 128; 


'Z':I:= (I+l6) MOD 128; 


wm. 
IG!ı 


I:= (I+128-16) MOD 128; 


BEGIN 
CURRENTCH:=CURRENTSET[ I]; 
EXPAND(CURRENTCH) ; 
CROSSHAIR(H,V); 

END; 


:BEGIN 


CLEARFIELD; 
CROSSHAIR(H,V); 
END; 


:BEGIN 


CURRENTSET[I]:=CURRENTCH; 
SHOWCHARCI); 


:BEGIN . 


IF ONE THEN MENU2; 
FILEIN; 
ONE:=FALSE; 

END; 


:BEGIN 


IF ONE THEN MENU2; 
FILEOUT; 
ONE:=FALSE; 

END; 


:BEGIN 


CURRENTCH[ V ]:=CURRENTCH[V]+[H]; 
MOVETO( 200+H*10,80+V*10); 
WCHAR(CHR(1)); 
CROSSHAIR(H,V); 

END; 


:BEGIN 


CURRENTCH[V ] :=CURRENTCH[V]-[H]; 
MOVETO( 200+H*10,80+V*10) ; 
WCHARC' '); 
CROSSHAIR(H,V); 

END; 


:V:=(V+1) MOD 8; 
:V:=(V+8-1) MOD 8; 
:H:=(H+7-r) MOD 7; 


:H:=(H+l) MOD 7; 


END(#* CASE *); 


IF CHOICE IN ['I','J','K','M'] THEN 
BEGIN 

CROSSHAIR(OLDH,OLDV) ; 
CROSSHAIR(H,V); 

OLDH:=H; OLDV:=V; 


END; 
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IF CHOICE IN ['w','a','S','Z'] THEN 
BEGIN 
HILITE(OLD,BLACK); 
HILITE(I,WHITE); 
OLD:=I; 
END; 


UNTIL CHOICE='Q'; 
END. 
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Weitere Bücher aus dem Pandabooks-Verlag: 


Apple Il 
Schaltpläne 
Winston D. Gayler 


GER 
DI > 
(EREEREEEEEEEEEEEEED 


Eine detaillierte Beschreibung der 
Apple II- und Apple IlIplus- 
Schaltungen. Wenn Sie Ihren Apple 
selbst reparieren, Interface-Karten 
oder Schaltungserweiterungen ent- 
werfen oder einfach nur besser über 
das Innenleben Ihres Apple Be- 
scheid wissen wollen - dieses Buch 
bietet Ihnen eine Fülle an Informa- 
tionen, Schaltpläne und Zeitdia- 
gramme, Theorie und praktische 
Tips. 


3-89058-012-2215S.A4 DM64,-- 


BASIC-Programme 
für Funkamateure 
Overbeck/Steffen 


®) 


Die beiden Autoren haben zusam- 
men mehr als 50 Jahre Amateur- 
funk-Erfahrung und präsentieren 
hier mehr als 20 BASIC-Pro- 
gramme, die jeden Funkamateur in- 
teressieren: QTH-KENNER, DÄM- 
MERUNGSLINIE, DX-RECH- 
NER, DOPPEL-FAHNDER, 
NACHWEISSCHREIBER, ALL- 
ZWECK-CONTEST-LOGGER, 
FIELD-DAY-LOGGER, WETT- 
BEWERB-LOGGER u.v.a.m. Das 
Buch enthält die kompletten Li- 
stings für Apple II und C64. 


3-89058-027-0 256 Seiten DM 48,-- 
Diskette zum Buch DM 50,-- 


Weitere Bücher aus dem Pandabooks-Verlag: 


Applesoft 
Trifkkiste 


Alles, was Sie bei APPLESOFT bis- 
her vermißt haben: 
eine Input-Routine, mit der Sie 
auch Kommas und Doppelpunk- 
te eingeben können 
ein PRINT USING Kommando 
für formatierte Ausgaben 
eine schnelle ”’Garbage Collec- 
tion’ 
und viele andere nützliche Utilities, 
dazu detaillierte Informationen über 
die Arbeitsweise des BASIC- 
Interpreters, Einsprungadressen, 
Systemvariablen. 


3-89058-033-5 ca.250S. DM 44,-- 
Diskette zum Buch DM 50,-- 


Mikrocomputer 
Grafik 
Roy E. Myers 


Endlich anspruchsvolle Apple- 
Grafik für BASIC-Programmierer. 
Mikrocomputer Grafik 
enthält fast 80 lauffertige 
BASIC-Programme, die die be- 
schriebenen Konzepte illustrie- 
ren. 
beschreibt ‘Hidden Line‘‘- und 
“Hidden Surface‘‘-Techniken, 
Skalierung, Rotation und Trans- 
lation von Grafiken 
bietet eine Einführung in die Ani- 
mationstechnik 


3-89058-000-9 292 Seiten DM 49,-- 
Diskette zum Buch DM 50,-- 


Weitere Bücher aus dem Pandabooks-Verlag: 


Apple Il 
Raster Grafik 
Jeffrey Stanton 


C) 


OD 


Die Qualität kommerzieller Arcade- 
spiele läßt sich mit APPLESOFT 
BASIC alleine nicht erreichen. Jef- 
frey Stanton führt in die Eigenarten 
der hochauflösenden Apple-Grafik 
ein und präsentiert schließlich eine 
Reihe extrem schneller Assembler- 
Routinen. mit denen Sie viele Effek- 
te bekannter Spiele selbst program- 
mieren können. Gute BASIC- 
Kenntnisse werden vorausgesetzt, ei- 
ne Einführung in Assembler- 
Programmierung wird gegeben. 


3-89058-006-8 299 Seiten DM 49,-- 
Diskette zum Buch DM 50,-- 


Apple 
Pascal Grafik 


Tom Swan 


Ag 


2 


22 Pascal-Programme, mit denen 
Sie die Grafik-Möglichkeiten Ihres 
Apple voll ausschöpfen: 
““Designer‘‘ ermöglicht es Ihnen, ei- 
gene Zeichensätze zu entwerfen. 
“Gredit‘‘ unterstützt Sie beim Ent- 
werfen komplexer Bildschirm- 
Grafiken 

“Printfoto‘‘ bringt Ihre Entwürfe 
aufs Papier. 

Darüberhinaus bietet das Buch eine 
Fülle fertiger Prozeduren, die Sie 
zeitsparend in Ihre eigenen Pro- 
gramme einbauen können 


3-89058-009-2 280 Seiten DM 49,-- 
Diskette zum Buch DM 50,-- 


Weitere Bücher aus dem Pandabooks-Verlag: 


Apple Il 
Assembler- 
Programmierung 
Roger Wagner 


Das Assembler-Lehrbuch für 
BASIC-Kenner. 

Roger Wagner, der Autor vieler be- 
kannter Software-Pakete, schrieb ei- 
ne monatliche Kolumne über 
Assembler-Programmierung in der 
Apple-Zeitschrift SOFTALK. 

Der vorliegende Band faßt diese Rei- 
he, korrigiert und erweitert, zusam- 
men: Eine stufenweise Einführung 
in die Befehle und Strukturen der 
6502-Assemblersprache, mit vielen 
Beispielen von der einfachen Tonge- 
nerierung bis zum Diskettenzugriff. 


3-89058-003-3 277 Seiten DM 48,-- 
Diskette zum Buch DM 50,-- 


Apple ProDOS 
Handbuch 
WorthlLechner 


Don Worth und Peter Lechner sind 
die Autoren von ‘‘Beneath Apple 
DOS‘‘, der Bibel aller DOS 3.3- 
Benutzer. In ihrem neuen Buch ha- 
ben sie sich ProDOS vorgenommen 
und mit der ihnen eigenen Gründ- 
lichkeit zerlegt. Ausführliche Be- 
schreibung der Arbeitsweise, der 
Dateitypen, des ‘MLI‘‘ und des 
“BASIC SYSTEM“. Das Standard- 
werk für jeden ProDOS-Anwender. 


3-89058-036-X 270 Seiten DM 46,-- 
Diskette zum Buch DM 50,-- 


Visible 
omputer 


Ein Simulationsprogramm, das Sie in das Innere des 6502 Mi- 
kroprozessors führt. Sie sehen auf dem Bildschirm, wie die ein- 
zelnen Instruktionen in Zeitlupe ausgeführt werden, wie sich die 
Register und die Flags verändern. Ein unverzichtbares Hilfsmit- 

tel beim Erlernen der Assembler-Programmierung, danach ein 

wertvolles Werkzeug beim Testen Ihrer eigenen Programme. 
Komplett mit einem 6502 Editor/-Assembler, deutschem Hand- 
buch (150 Seiten) und über 30 Beispielprogrammen. 
Für Apple II, IIplus, //e und /’c. 


Pi ISBN 3-89058-024-6 DM 198, -- 


| 1 Bei Ihrem Applehändler, 

| in guten Buchhandlungen, 
| oder direkt vom Verlag: 
Pandabooks 

Teltower Damm 168 
D-1000 Berlin 37 
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MERLIN 


von Glen Bredon 


Ein professioneller Macro-Assembler für 
die Apple II-Familiel 
Neben allen Standard-Features bietet MERLIN u.a.: 


- komfortabler Editor mit globalen 
Such- und Ersetzfunktionen 


— liest und schreibt Text- unf Binärfiles 
- unterstützt 6502 und 65C02 Opcodes 


- beinhaltet eine Bibliothek mit vielen 
nützlichen Unterprogrammen 

- enthält einen Dissassembler 

- kompatibel mit vielen 80-Zeichen-Karten 


und natürlich mit Apple /le und /lc! 
- deutsches Handbuch 


Bei Ihrem Applehändler, in guten Buchhandlungen, 
oder direkt vom Verlag: 


Pandabooks 
Teltower Damm 168 


D-1000 Berlin 37 


Eine Sammlung von Utilities für den Pascal- 
Programmierer: 

P-Code-Decodierer, Disk-Zapper, verbesserte 
HHO-Prozeduren, File-Konvertierer (Pascal nach 
DOS und zurück), Grafik-Routinen, Textforma- 
tierer, u.a. 

Viele wichtige Informationen, Systemadressen, 
Tips und Tricks. 


Pandabooks Berlin ISBN 3-89058-030-0 


